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ELETTRICITÀ & ENERGIA è la grande opera del Gruppo 
Editoriale Jackson nata per tutti coloro che intendono ac- 
quisire la padronanza più completa delle fonti energetiche, 
dalle tecnologie utilizzate, fino alle principali applicazioni. 


Grande spazio è dedicato all'e/ettricità, dalle sue leggi 
fondamentali, fino ai suoi più comuni settori di utilizzo. 
L'elettricità è, infatti, tra tutte le risorse energetiche, quella, 
con cui chiunque di noi ha quotidianamente a che fare. 
Rivolta all'hobbista oltre che al tecnico, ELETTRICITÀ & 
ENERGIA riserva un buon numero di pagine, in ogni fasci- 
da rilegare in: colo. anche a nozioni di tipo pratico, dall’impiantistica al 
“fai da te” elettrico. 

Tutti gli argomenti sono trattati con lo stile e la professiona- 


sù untotale di 1050 pagine lità delle Grandi Opere Jackson. 
oltre 5000 fotografie e illustrazioni 
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E siamo già al secondo appuntamento. 
Forse più familiari; credibili nei nostri sforzi. 
E così, in questo numero, si riconfermano, .insostitui- 
bili, i tutorial ai diversi linguaggi di Amiga: AmigaBa- 
sic, C, Assembly; e al CLI. E si ripresenta, sempre 
smagliante e sorprendente, Disco Magazine. 
Ma ci sono pure delle novità. Vi introduciamo a True 
Basic, un’implementazione del Basic che offre nuove 
possibilità ai cultori di questo linguaggio. E sempre in 
Basic c'è ROT, uno straordinario programma grafico 
che vi permette di progettare e muovere figure tridi- 
mensionali. 
E tra le altre cose, un interessante articolo sulla stam- 
pante Xerox 4020, le cui stampe già avete potuto am- 
mirare sulle pagine del primo numero della rivista e 
che continuerete ad ammirare anche in questo. Un 
modo insomma per presentarvi più da vicino questo 
nostro formidabile collaboratore. 
E poi c'è Forth. 
La sua presenza, è una precisa scelta in direzione di 
una informazione il più possibile completa sulle imple- 
mentazioni dei diversi linguaggi per Amiga. E qui ci 
fermiamo per alcune considerazioni. E mai possibile 
che non si possano rendere disponibili sul mercato 
italiano le molte implementazioni dei diversi linguaggi 
per Amiga, affermate ormai da tempo oltreoceano?! 
Queste difficoltà non solo intralciano il nostro lavoro, 
ma rischiano di rallentare la diffusione dell’ Amiga e lo 
sviluppo di software adeguato alle possibilità della 
macchina. E qui non si vuole solamente lamentare l’ir- 
reperibilità sul mercato ufficiale di validi prodotti come 
Multi-Forth della Creative Solutions e JForth della Delta 
Research, ma di implementazioni ormai quasi ’ leg- 
gendarie ' di Lattice, Manx e Metacomco per esem- 
pio, per non parlare poi di tutti gli altri validi prodotti di 
cui molto spesso non si conosce nemmeno l'esistenza. 
Non potremmo a questo punto che esclamare anche 
noi: pirata e' bello?! 
Il nostro compito, infatti, è anche quello di penetrare 
in questo lato nascosto e oscuro dell'universo Amiga 
e farlo parlare: it's black. 
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Come ottenere il massimo dalle vostre stampe 
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Le origini di un famoso programma 








A IPinterno del CLI 


Continua il nostro viaggio alla conquista del CLI 
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Come aumentare la velocità dei programmi in AmigaBasic 
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Capire e pilotare il suono di Amiga 




















— rogrammare in C 


Patti chiari, amicizia lunga... 





PO . 
(; orso di Assembly 
Seconda puntata del corso di programmazione 
sul linguaggio Assembly MC68000 
; -- Orso di Basic dell’Amiga 
L'interprete Basic dell’Amiga 
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Dall’interpolazione alla computer graphics... 
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Finalmente uno standard per il Basic 
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Prowrite 


È stata introdotta di recente 
sul mercato una versione ag- 
giornata del ProWrite V2.0 con 
molte nuove configurazioni. Di 
particolare interesse è la possi- 
bilità di selezionare le specifica- 
zioni di default. Tutti i parame- 
tri di avvio come font, giusitifi- 
cazioni. spaziatura e colori pos- 
sono essere predeterminati e 
vari file preference possono ve- 
nir immagazzinati e caricati in 
memoria all'occorrenza. 

Anche la memoria di [lavoro 
riservata alla grafica e al testo è 
stata utilizzata ai meglio, miglio- 
rando la velocità che ora è di 
dieci volte più rapida della ver- 
sione precedente di questo pro- 
gramma e nel modo testo tale 
velocità è veramente sorpren- 
dente. Le stampanti che preve- 
dono l'output in alta risoluzione 
permettono l'output di true letter 
quality da qualsiasi font di Amiga. 
Gli elaborati possono essere di 
qualsiasi larghezza utilizzando 
l'opzione del programma che 
permette la stampa su fogli di 
qualsiasi larghezza. 

{ disegni HAM, tipo quelli crea- 
ti con DigiPaint, possono essere 
caricati all’interno del ProWrite e 
utilizzati. ll paragrafo riguardante 
le opzioni di formattazione del te- 
sto permette di inserire spazi in- 
teri o dimezzati, fissare l'altezza 
della linea e l'inclusione di linee 
vuote di separazione tra i vari pa- 
ragrafi. | paragrafi finali possono 
essere ordinati in modo ascen- 
dente o discendente per permet- 
tere la creazione di tabelle o per 
editare il dizionario che è com- 
preso nel programma. Tale di- 
zionario può verificare l'esatta 
grafia di 95.000 parole. Il con- 
teggio di caratteri, parole, frasi, 
paragrafi e di facile utilizzo riu- 
scendo così ad ottenere in modo 
semplice tutte le informazioni ri- 
guardanti il documento. Queste 
sono alcune delle principali mi- 
gliorie rispetto alla versione pre- 
cedente del programma, ma ce 
ne sono molte altre che contri- 
buiscono al potenziamento di 
questa versione. 

Il prodotto è fornito dalla New 
Horizons Software, P.O. Box 


43167, Austin, Texas, 78745, 
USA. 


Hard News 


Una nuova serie di sistemi 
hard disk compatibili per Amiga 
500 è stata immessa sul mer- 
cato statunitense dalla Supra 
Corporation. L'hard disk drive 
è disponibile con quattro diver- 
se capacità, con porta d’espan- 
sione SCSI e fornisce inoltre 
delle  capacitàdi espansione 
della RAM. | quattro drive han- 
no una capacità di 20, 30, 60 
e 250 Mbyte e sono disponibili, 
rispettivamente al prezzo di 
$995, $1195, $1995, e $3995. 
I Supra Drive vanno inseriti di- 
rettamente nel socket d’espan- 
sione dell’Amiga 500 ed il tra- 
sferimento dei dati è molto ra- 
pido. RAM board di 1 0 2 Mbyte 
di capacità possono essere in- 
nestate nell’unitàdell'hard disk. 

Per maggiori informazioni 
contattate: Supra Corporation, 
1133 Commercial Way, Albany, 
OR 97321, USA. 


Accordo tra G.E. 
Jackson 


e VNU Business Press 


Il Gruppo Editoriale Jackson 
S.p.A., editore leader in Italia nel 
settore dell’elettronica, dell’infor- 
matica e delle nuove tecnologie, 
e la VNU Business Press Group, 
gruppo internazionale con sede 
ad Amsterdam e consociate ne- 
gli USA, Inghilterra, Francia, Spa- 
gna, Belgio e Australia, annun- 
ciano di aver concluso un accor- 
do che prevede l'ingresso del 
gruppo olandese nella compagi- 
ne azionaria del G.E. Jackson. 

L'accordo risponde in modo 
preciso alla struttura del merca- 
to delle tecnologie avanzate, il 
quale evidenzia la necessità di 
superare i confini nazionali. 
L’accordo prevede la diffusione 
tempestiva su scala internazio- 
nale dei nuovi media interattivi 
realizzati dalla Jackson, che 
vanta un'esperienza unica nel 
settore dei prodotti autodidattici 
basati su personal computer. 

Jackson e VNU svilupperan- 
no anche tutte le sinergie pos- 


sibili nell'area dei nuovi media 
video, telematici e ottici con 
particolare riferimento alle tec- 
nologie CD-ROM. 

La VNU è nota nel settore 
dell'editoria elettronica interna- 
zionale, oltre che per l'incorpo- 
razione dell’autorevole casa e- 
ditrice americana Hayden Pu- 
blishning Company (Electronic 
Design), anche per la recente 
acquisizione della prestigiosa ri- 
vista Electronics della McGraw- 
Hills. Nel settore dell'informati- 
ca la VNU pubblica testate di 
rinomanza mondiale quali l'a- 
mericana Personal Computing, 
le inglesi Personal Computer 
World e Computing, le francesi 
Informatique Hebdo e Soft & 
Micro e la spagnola Chip. 

Attualmente la Jackson pub- 
blica 28 riviste, oltre 800 ma- 
nuali tecnici e scolastici, 16 tra 
enciclopedie e corsi interattivi di 
autoapprendimento. 


Sim-Hi.Fi-Ives 
ventiduesima edizione 


La ventiduesima edizione del 
Salone Internazionale della Mu- 
sica e High Fidelity - Internatio- 
nal Video and Consumer Ele- 
ctronics Show si svolgerà nei 
Padiglioni 7, 12, 13, 14, 14B 
della Fiera di Milano dall'8 al 12 
settembre 1988. 

Il SIM-HI.FI-IVES di Milano 
rappresenta una delle principali 
manifestazioni specializzate del 
proprio settore e rappresenta 
una impagabile vetrina sulle an- 
ticipazioni e novità dei produt- 
tori oltre ad essere una gran- 
diosa occasione di animazione 
del mercato nazionale e inter- 
nazionale. 

La superficie prevista per 
questa edizione è di 35.000 me- 
tri quadrati. Sono previsti 300 
espositori diretti per un totale di 
oltre 800 ditte rappresentate. 

Dall’8 al 12 settembre il SIM- 
HI.F-IVES sarà l’unica manife- 
stazione espositiva della Fiera 
di Milano, perciò per quanto ri- 
guarda i parcheggi, i posti-letto, 
le prenotazioni aeree, Milano 
sarà a completa disposizione 
degli operatori specializzati pre- 
senti. 
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La rubrica Corrispondenza” 
è stata voluta 
al fine di definire uno spazio, 
interno alla rivista, dedicato al confronto 
e al contributo di idee, provenienti 
dalla galassia dell'utenza Amiga. 
Per avervi accesso, 
inviate le vostre missive a: 


Spett. redazione 
"Amiga Magazine” 
rubrica Corrispondenza” 
Gruppo Editoriale Jackson 
via Rosellini, 12 
20124 MILANO 
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Graphicraft e disegni di 
circuiti 


Operando con il Graphicraft, 
ci si accorge ben presto che è 
possibile effettuare l'editing dei 
file Brush. Una volta editati tali 
file è possibile modificarli in sim- 
boli elettrici e registrarli su di- 
sco; questo fatto permetterà a’ 
vereare disegni di circu© s'est 
trici con una sempiic è scrorar- 
dente. ll metodo p°ù seme 
per mantenere © pezz 007 L° 
certo ordine è è cuelo 
mantenere de gru 
simili (caveît. res 
ecc.) sulla ste 
Spostarsi! tra ! fie brush non è 
affatto difficile, ma fa perdere 
del tempo. Unico consiglio che 
crediamo utile fornirvi è: Dise- 
gnate i componenti orientati 
nelle quattro direzioni, in que- 
sto modo potrete sistemarli sui 
vostri disegni più facilmente. 
Questo metodo è meno espen- 
sivo di quello proposto da vari 
programmi commerciali ed ha 
un unico limite che è quello de- 
terminato dalla vostra immagi- 
nazione. 











Say 
Digitando il Comando SAY 


dal CLI si scoprono alcune in-. 


teressanti configurazioni di que- 
sto comando. Appena digitato 
il comando SAY, apparirà sullo 
schermo una window che illu- 
strerà alcuni degli utilizzi di que- 
sto comando. Anche se gli e- 
sempi sono abbastanza vaghi, 
sono sufficienti per indirizzarci 
nella direzione giusta. Vi' propo- 
niamo la sintassi del comando 
ed un esempio di come l’Amiga 
legge i file testo per voi: 


Sintassi: 

SAY-X (dir)/(filename[.ext]) 
Esempio: ; 

SAY-X S/startup-sequence 


È evidente che quanto pro- 
posto non servirà solamente 
per divertirsi nell’ascoltare la 
macchina mentre svolge que- 
sta funzione, ma piuttosto potrà 
essere utilizzato ogni volta che 


si desidera ascoltare un testo 


scritto in precedenza. 


Comandi AmigaDos 





Molti comandi dell’Amiga- 
Dos generano dei prompt pro- 
pri mentre attendono l'input. Ad 
esempio, il comando DATE? 
“erà apparire il seguente prom- 
Di sullo schermo: TIME.DA- 
CE.00 = VERK. E possibile 

“ "comando 
LÌ zzarco operatore 
devce NIL. 
: DATE>NIL:? 
pi ai computer 
rsiaterra o nessuno’, questo, 
senza generare degli errori. As- 
s:curatevi solamente di posizio- 
nare l'operatore ridirezionale 
prima del parametro richiesto. 


So a nare 








Maggior spazio sui 
dischetti 





Un modo per ottenere mag- 
gior spazio sui dischetti, è quel- 
lo di cancellare i file che non 
interessano nella directory 
SYS:DEVS/PRINTERS. Se uti- 
lizzate uno dei printer driver for- 
niti dalla Preference, dovrete 
semplicemente cancellare gli 
altri che non utilizzerete. Per ot- 
tenere quanto appena propo- 
sto digitate quanto segue dal 
prompt del CLI: 


CD DEVS 

COPY PRINTERS/GENERIC 
TO SYS:TCD : 

DELETE SYS:DEVS/PRINTERS 
ALL CD DEVS 

MAKEDIR PRINTERS 

COPY SYS:T/GENERIC TO 
PRINTERS CD : 


È una buona idea comun- 
que, il richiedere un DIR DE- 
VS/PRINTERS prima di proce- 
dere con la cancellazione del 
file printer, semplicemente per 
verificare come viene listata la 
vostra stampante. Non effettua- 
te quanto proposto sul disco 0- 
riginale del Workbench, ricor- 
datevi che in un futuro anche 
non lontano potrete decidere di 
acquistare una nuova stampan- 
tel 


Modi testo e CLI 


Dal CLI è possibile abilitare i 
vari modi testo con poche e 


semplici pressioni di tasti. La 
sequenza per ottenere quanto 
detto è molto semplice: 

ESC[n1;n2;n8m 

dove ESC è la escape key, 
nt’ e’ il numero dello stile, ‘n2’ 
e' il numero per il colore del 
primo piano, ’n3' è il colore del- 
lo sfondo e 'm’ e’ la sequenza 
terminator. Di seguito vi propo- 
niamo l'elenco dei valori che 
potete utilizzare, ma ricordatevi 
che se i colori sono stati modi- 
ficati per mezzo della Preferen- 
ce, questi numeri daranno risul- 
tati differenti. 


STILE 
0 = Testo Normale 
1 = Grossetto 
3 = Italico 
4 = Sottolineato 
7 = Inverso 
PRIMO PIANO 
30 = Default 
31 = Bianco 


32 = colore complementario 
binario 
(colore di default è nero) 


33 = Rosso 

SFONDO 

40 = Default 

41 = Bianco 

42 = colore complementario 
binario 

43 = rosso 


È possibile naturalmente 
combinare tra loro i vari stili, 
immettendo ciascun numero di 
stile separato da un punto e vir- 
gola. Ad esempio: 


ESC[1:33;41m 


che proporrà un grossetto in 
rosso su campo bianco; e 


ESC[1;3;4;31m 


che farà apparire le scritte in 
italico, grossetto, sottolineato e 
di colore bianco. 


Cambiare dischi con un 
singolo drive 


Quando si utilizza l’Amiga- 
DOS e un drive soltanto, le cose 
non sempre vanno come si de- 
sidererebbe. Specialmente 
quando si deve rimpiazzare il 
disco Workbench nel drive per 
caricare un comando. Alcuni 
dei comandi dell’AmigaDOS 
vengono eseguiti non appena 
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caricati in memoria, non per- 
mettendo così di immettere il 
disco senza Workbench con cui 
si intende operare nel drive. U- 
tilizzando il comando CD que- 
sti non lavora perché, una volta 
caricato dal disco Workbench, 
viene eseguito istantaneamen- 
te. Un metodo per aggirare 
questo problema è il seguente: 
quando si imposta uno dei co- 
mandi ad esecuzione immedia- 
ta basterà aggiungere uno spa- 
zio e un punto di domanda pri- 
ma di premere il tasto Return, 
attivando in questo modo l'help 
on-line dell'AmigaDOS. Si ot- 
terrà in questo modo la sintassi 
ed il formato di ogni comando 
dell’AmigaDOS (per i princia- 
pianti questa è una procedura 
da ricordare) e carica in memo- 
ria Il comando prima di eseguir- 
lo. Questa tecnica è valida per 
ogni comando dell’AmigaDOS 
anche se questi sono privi di 
parametri, come il comando IN- 
FO. Digitate semplicemente IN- 
FO? e vi apparirà il messaggio 
none: Inserite il disco del quale 
intendete avere delle informa- 
zioni e premete il tasto Return. 
Certamente la conoscenza di 
questa procedura semplifi- 
cherà i problemi per tutti coloro 
che sono in possesso di un dri- 
ve singolo. 





Deluxe Paint nascosti 
dall’area Undo 


Nel disegnare nelle aree del- 
lo schermo che sono normal. 
mente coperte dai menù a bar- 
re (in alto e sulla destra), non è 
possibile utilizzare l’opzione 
UNDO per correggere gli even- 
tuali errori commessi (probabil- 
mente perché riattivando il 
menù a barre viene considerato 
come il selezionare qualcosa di 
nuovo). Un modo per aggirare 
questo inconveniente è quello 
di utilizzare l'opzione Center Pi- 
cture. Si sposti semplicemente 
il cursore sulla destra o in alto 
sullo schermo e si prema il ta- 
sto 'N’, che effettuera' uno 
scroll automatico della figura, in 
questo modo le parti del dise- 
gno coperte dai menù verranno 
liberate. Ora potrete modificarle 
a vostro piacimento. 
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Multi preference 


Se il Preference è un ottimo 
tool per costruire gli ambienti 
Amiga, è comunque limitato dal 
fatto che è possibile registrare 
solamente un set di sistema di 
preference mentre se ne utilizza 
un altro. Coloro che utilizzano 
più di una stampante, o desi- 
derano un controllo più preciso 
del loro mouse per il disegno 
al posto del normale e rapido 
mouse utilizzato per spostarsi 
velocemente sullo schermo 
probabilmente sono interessati 
ad un modo automatico per 
spostarsi tra sistemi di preferen- 
ce specifici. Per dare una rispo- 
sta a questo tipo di problema, 
provate ad utilizzare i seguenti 
due comandiche troveranno 
posto nella vostra SYS:dire- 
ctory. Il primo file: 


file save-sys 

KEY name/a 

copy 
SYS:devs/system-configuration 
to 
SYS:devs/system<name> 

end of file 


ll secondo file: 


KEY name 
IF_EXISTS 
sys:devs/system-<name$normab> 
copy SYS:devs/system-<name 
$normal> to 
SYS:devs/system-configuration 
SYS:preferences i 
ELSE 
ECHO ”SYS:devs/system-<name 
$normal> 
not found...” 
ENDIF 
end of file 


La prima operazione da 
compiersi è EXECUTE SAVE- 
SYS NORMAL, che produce 
una copia dell’attuale configu- 
razione di sistema registrato. 
Questa dovrà essere la confi- 
gurazione che pesate di utiliz- 
zare più spesso. E possibile ef- 
fettuare il restore di questa con- 
figurazione per mezzo di EXE- 
CUTE RESTORE-SYS, senza 
dover aggiungere alcun argo- 
mento. Quando viene visualiz- 
zato lo schermo Preference, 
dovrete semplicemente preme 


re il pulsante (click) su LAST 
SAVED e USE. Si potrà effet- 
tuare un SAVE o RESTORE del- 
le altre configurazioni (es. per 
una seconda stampante) nel se- 
guente modo: 


EXECUTE SAVE-SYS PRINTER2 
EXECUTE RESTORE-SYS 
PRINTER2 (click LAST SAVED e 
USE) 


EXECUTE in S 


Se utilizzate sovente i file Exe- 
cute dell’AmigaDOS, sarete sor- 
presi di apprendere che un file 
Execute, posto all’interno della 
directory S sul Workbench, sarà 
comunque accessibile indipen- 
dentemente dalla directory in 
uso. Potrete spostare un file alla 
directory ‘Sequence’ per mezzo 
di COPY file TO S:. Troverete utile 
effettuare una seconda copia del 
comando Execute in modo ab- 
breviato. Ad esempio: COPY 
C:Execute to CX. 


Spazi nei titoli Window 


Se possedete solamente il 
manuale Introduction to Amiga 
e vi siete preposti il compito di 
introdurre uno spazio nel titolo 
di una window è possibile che 
incappiate in parecchi errori pri- 
ma di approdare ad una solu- 
zione soddisfacente. Comun- 
que esiste un metodo per ag- 
girare l'ostacolo basterà utiliz- 
zare l’ALT e la barra spaziatrice 
(o CTRL-N se siete nel set di 
caratteri alternato). Tutto quello 
che dovrete fare sarà di man- 
tenere premuto il tasto ALT e 
nel frattempo premere la barra 
spaziatrice, e finalmente l’Ami- 
ga accetterà il comando. 


Ask per amiga 500 
e 2000 


Questo è un modo estrema- 
mente semplice per condizio- 
nare l'installamento di comandi 
CLI nella RAM disk e poi asse- 
gnar loro, gli appropriati volumi 
virtuali. Incluso nel disco Wor- 
kbench dell’Amiga 500 e 2000 
c'è un comando chiamato ASK. 


Tale comando vi permette di 
effettuare un entry in un batch 
file (in questo caso, Startup-Se- 
quence) che invia un prompt 
all'utente per una risposta del 
tipo ‘yes or no'. La sintassi per 
il comando ASK è: 


ASK “Any text question in 
QUOTES” 


Poi la risposta viene analiz- 
zata per mezzo di un comando 
IF WARN (WARN è vero se la 
prima lettera della risposta del- 
l'utente è “Y” o ”y”): 

IF WARN 

(operazione) 

ENDIF 


Eccovi un esempio per in- 
stallare la directory in C nella 
RAM: 


Echo ”” 
ASK ”Installo i comandi CLI 
nella RAM:Drive (Y o N)?” 


IF WARN 
MAKEDIR RAM:C 
COPY C: ALL RAM:C 
QUIET 
ASSIGN C: RAM:C 
ENDIF 


Poi. prima della 
ENDCLI>NIL:, si 
quanto segue: 


linea 
immetta 


IF EXISTS RAM:C 
NEWCLI 


CON:540/150/100/50/CLI 
ENDIF 


Questo permette di decidere 
se operare solamente in am- 
biente Workbench o creare un 
CLI per utilizzarlo con questi co- 
mandi. Se i comandi sono stati 
copiati nella RAM: è certo che 
si vuole utilizzare un ambiente 
CLI, mentre  l'effettuare un 
RAM:C presume che si voglia 
operare solamente con il Wor- 
kbench. L'unico neo nell’utiliz- 
zo della configurazione RAM:C 
è Il rallentamento dell’operazio- 
ne di booting e la perdita di 
circa 199K di RAM. 
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Shanghai 


... la concentrazione è spes- 
so la chiave del successo! 

Nel corso dei secoli vari gio- 
chi sono stati creati; ma soio | 
migliori tra questi giochi hanno 
resistito al logorio del tempo e 
sono giunti sino a noi. Un fatto 
fi accomuna, ed è che sono co- 
struiti su basi molto semplici, 
ma per raggiungere il traguar- 
do richiesto da ogni singolo gio- 
co, le strategie da utilizzarsi so- 
no spesso . incredibilmente 
complesse. Citando alcuni e- 
sempi di questi giochi, potrem- 
mo ricordare gli Scacchi, la Da- 
ma, il Go (oggi noto anche con 
il nome di Otello), ed infine i 
giochi di carte (pensate sola- 
mente a quante varianti ci so- 
no). Shanghai è uno di questi 
giochi ed entra a pieno diritto 
nella lista dei Giochi Classici. 

L'origine di questo gioco si tro- 
va in uno dei più antichi giochi 
del mondo e al tempo stesso più 
misteriosi. Si dice che risalga a 
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25 secoli fa circa, ma di sicuro 
possiamo affermare che la sua 
patria è la Cina. Questo gioco 
prende il nome di Mah-Jong, agli 
inizi veniva giocato solo a corte 
o al massimo fra cerchie ristret- 
tissime di dignitari del Celeste Im- 
pero. Ha avuto nel tempo nume- 
rosissime derivazioni (Shanghai 
è una di queste), ed è uno dei 
giochi più diffusi nel Mondo. Nel- 
la sua patria d'origine viene con- 
siderato il gioco nazionale per ec- 
cellenza. 
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Le 144 tessere di cui è com- 
posto il gioco sono, nella ver- 
sione originale, fatte di osso 0 
di bambù. Pescatori e marinai 
lo preferivano e lo preferiscono 
tuttora ad altri passatempi du- 
rante le interminabili traversate 
oceaniche. La prima esporta- 
zione del gioco verso il Giap- 
pone (1905-1910) venne fatta 
da alcuni militari giapponesi. 
Verso il 1920 alcuni marinai a- 
mericani importarono da Ma- 
cao negli Stati Uniti alcune con- 
fezioni di questo gioco. In Eu- 
ropa arrivò solamente nel 1922, 





per mezzo di ambulanti cinesi 
espatriati in cerca di fortuna. 
Shanghai è fornito di poche 
ma essenziali opzioni che do- 
vrete cercare di ricordare. Il gio- 
co richiede l’utilizzo di un siste- 
ma che sia dotato di un minimo 
di 512K. Comunque, se il vo- 
stro Amiga ha più di 512K ed 
è fornito di doppio drive, è pos- 
sibile avere il Shanghai caricato 
simultaneamente con un se- 
condo programma. Per giocare 
è richiesto l’utilizzo del mouse; 
la tastiera viene utilizzata per 
immettere il nome dei vincitori 
o per registrare una partita. Nel- 
la modalità Challenge (sfida tra 
due giocatori), sarà necessario 
l'inserimento di un secondo 
mouse nella porta due per ser- 
vire simultaneamente i due con- 
tendenti. Questa opzione è mol- 
to gradita da coloro a cui non 
piace spostare continuamente i 
controlli. Shanghai non deve il 
suo successo alla grafica, ma 
la grafica della versione dell’A- 
miga è superba. Quello che vi 
manterrà incollati al monitor 
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sarà però la strategia di questo 
gioco (prima di iniziare questo 
articolo abbiamo speso due po- 
meriggi interi a provarlo!!!). 

Il gioco consiste nel togliere 
coppie identiche di pezzi dalla 
configurazione di 144 pedine po- 
ste una sopra l'altra come dalla 
figura che vi apparirà sullo scher- 
mo. Questa piramide di pezzi 
prende il nome di Formazione 
Drago, dal momento che do- 
vrebbe rappresentare un Drago 
dormiente, l’effetto tridimensio- 
nale è veramente efficace. | pezzi 
formano al centro una pila di cin- 
que tessere che decresce pro- 
gressivamente verso l'esterno fl- 
no a raggiungere sui bordi delle 
pile formate da un pezzo soltan- 


cerchi e bambù (o canne). Ogni 
seme è composto da 36 pezzi: 
una serie completa dall'uno al 
nove è ripetuta quattro volte 
(es. quattro 3 di bambù, quat- 
tro 9 di cerchi, quattro 1 di per- 
sonaggi, ecc.). 

Anche le rimanenti 40 pedine 
letterali si dividono a loro volta 
in varie serie: venti, draghi, fiori 
e stagioni. 

| venti sono in tutto sedici, 
quattro per ogni punto cardinale 
principale. | draghi sono dodici, 
quattro per serie (draghi rossi, 
verdi e bianchi). Gli ultimi otto 
pezzi saranno ripartiti in misura 
uguale tra fiori e stagioni. | pezzi 
sono disegnati fin nei minimi det- 
tagli in maniera impeccabile. Le 
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to. Per distinguere i livelli da dove 
intendete togliere i pezzi, le pe- 
dine sono provviste d'ombra e 
sono in questo modo evidenzia- 
te. Il livello più in alto proietta la 
sua ombra su quello immediata- 
mente inferiore. Pare quasi che 
sia possibile toccare i diversi li- 
velli. Lo sfondo su cui si stagliano 
le pedine è un velluto di colore 
verde che offre al gioco un a- 
spetto classico, come fosse gio- 
cato su un tavolo ricoperto da un 
panno. Queste schermate grafi- 
che offrono l'opportunità di ap- 
prezzare la potenzialità dell’Ami- 
ga. : 
| 144 pezzi, a forma di do- 
mino, sono divisi in vari gruppi. 
Esistono fondamentalmente 
due tipi diversi di pedine: quelle 
numerali e quelle letterali. Le 
prime sono 104 e a loro volta 
si suddividono in tre serie (o 
semi): personaggi (o caratteri), 
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pedine numerali oltre al disegno 
hanno sulla parte superiore a de- 
stra il numero corrispondente in 
cifre arabe. | Draghi, i Venti, le 
Stagioni, ecc., possono essere 
considerati gli equvalenti dei Re, 
Regine e Fanti che si trovano nel 
gioco delle carte. Se consideria- 
mo la longevità del Mah-Jong, 
potremmo azzardare che i giochi 
occidentali di carte, sviluppatisi in 
epoche più recenti, abbiano a- 
vuto come antenato proprio que- 
sto gioco. 

Per vincere non dovrete far al- 
tro che accoppiare ciascuna pe- 
dina con la sua gemella e rimuo- 
vere la coppia dal tavolo; il tutto 
dovrà essere effettuato in accor- 
do con le regole del gioco e cioè 
che i pezzi da rimuovere dovran- 
no essere ‘liberi’ (non dovranno 
esserci pedine a destra o a sini- 
stra sullo stesso livello del pezzo 
che si intende rimuovere). Detto 
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così, il gioco sembra facile... ma 
vi ricrederete immediatamente 
già dalla prima partita!!! 

Il gioco è provvisto di opzioni 
per aiutarvi a rintracciare le pe- 
dine da accopiare, per indicarvi 
le mosse che vi rimangono, ma 
se intendete giocare in maniera 
‘pulita’, dovrete rifiutarvi di uti- 
lizzare queste opzioni (noi lo ab- 
biamo provato almeno una cin- 
quantina di volte, ma non ab- 
biamo mai vinto!). 

Ci sono vari modi per giocare 
a Shanghai: Solitario, Torneo, Sfi- 
da e Team Effort. Ciascuna mo- 
dalità presenta lo stesso livello di 
difficoltà, sono variabili solo il nu- 
mero dei giocatori ed il tempo. 
‘Solitario’ (Solitaire), è la versione 
per un solo giocatore; in questa 
modalità non sono presenti le li- 
mitazioni di tempo. Il giocatore 
dovrà solamente togliere dalla 
configurazione del drago dor- 
miente il maggior numero di pe- 
dine possibili; per vincere natur- 
lamente si dovranno togliere tutte 
le pedine. Nella versione Solita- 
rio è possibile registrare una par- 
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tita e richiamarla in memoria in 
un secondo momento. 

Nel modo ‘Torneo’ (Tourna- 
ment), è possibile inserire un 
numero variabile di giocatori. 
Ciascun giocatore, toglierà del- 
le pedine da un'identica scac- 
chiera. E possibile scegliere dei 
tempi limite per torneo di: cin- 
que, dieci, e venti minuti oppu- 
re si può scegliere di giocare 
senza limite di tempo. Il gioca- 
tore che è capace di togliere ll 
maggior numero di pezzi vince 
il torneo. | cinque punteggi mi- 
gliori saranno registrati automa- 
ticamente su disco. 

La modalità ’Team Effort’ è 
identica a ’Solitario’, unica dif- 
ferenza è che possono collabo- 
rare vari giocatori. Ciascun 
membro del gruppo ha la pos- 
sibilità di effettuare una mossa, 
è necessaria perciò la massima 
collaborazione per raggiungere 
il successo. La partita terminerà 
quando uno dei gruppi vince o 
quando non saranno possibili 
mosse ulteriori. 

Sfida’ (Challenge), è una ga- 
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ra tra due contendenti per ve- 
dere quale dei due effettua il 
maggior numero di mosse. In 
questa modalità la strategia del 
gioco è di vitale importanza dal 
momento che ciascun giocato- 
re ha un tempo limitato per ef- 
fttuare la sua mossa. | limiti di 
tempo per ciascun turno pos- 
sono essere di 60, 30, 20, o 10 
secondi. ll gioco finisce quando 
ciascun giocatore non toglie al- 
cuna pedina dal gioco per due 
turni consecutivi. 

Personalmente ho giocato 
con la versione ‘Solitario’ molte 
volte in più che con le altre ver- 
sioni, ciò è dovuto principalmen- 
te al fatto che non c'era nessun 
malcapitato nei dintorni quando 
giocavo a Shanghai. Il gioco ri- 
sulta stimolante e normalmente 
giocavo tre o quattro partite alla 
volta che mi impegnavano per 
un paio d’ore circa. Ma il tempo 
passava velocemente tanto ero 
assorbito dal gioco. Una volta 
che avete sviluppato una strate- 
gia che reputate vincente è il mo- 
mento di passare alla modalità 
"Sfida' in modo da sottoporre a 
verifica la vostra teoria e velocità. 
È quasi impossibile vincere se 
settate il tempo per effettuare una 
mossa a dieci secondi, ma dopo 
un po' questo fatto aumenterà di 
molto la vostra capacità attentiva 
e giocando nelle altre modalità 
otterrete risultati più che confor- 
tanti. 

Di grande competitività risul- 
tano le modalità ‘Sfida e Team 
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Effort’, questo grazie anche alle 
limitazioni relative al tempo che 
vi si possono inserire, Ricorda- 
tevi però che nel modo ‘Sfida’ 
non si può ricorrere alle opzioni 
di aiuto se ci si trova nei pastic- 
ci. Se invece, pensate di essere 
dei discreti giocatori, Team Ef- 
fort’ sarà il vostro palcoscenico 
nelle serate con gli amici. 
Abbiamo rilevato solamente 
un piccolo neo in questo pro- 
gramma. Quando non ci sono 
più mosse a disposizione, il fatto 
non viene segnalato in alcun mo- 
do. Comunque premendo l’o- 
pzione HELP si scopre se riman- 
gono ulteriori mosse. Si rischia di 
guardare lo schermo per una de- 
cina di minuti alla ricerca di ulte- 
riori mosse a disposizione, men- 
tre queste non esistono. Se da un 
lato questo fatto è frustrante, dal- 
l'altro offre un ulteriore grado di 
realisticità al programma. La 
chiave del successo in questo 
gioco è certamente la concen- 
trazione, senza questa è pratica- 
mente impossibile ideare e man- 
tenere una strategia vincente. 
Vi ricordiamo che il Shanghai 
è sprovvisto dell'opz’one HELP 
per farvi... smettere di giocare. 





Silicon Dreams 
e Jewels of Darkness 





Ovvero un pizzico di nostai- 
gia. 

Molto tempo fa — prima che 
la IBM realizzasse che i com- 
puter potessero sedersi in cat- 
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tedra e che i mouse potessero 
apprendere le arti del disegno, 
nel tempo in cui si poteva e- 
sprimere la memoria di un com- 
puter con un numero di due ci- 
fre e il numero dei colori veniva 
espresso con una cifra soltanto 
— apparve il primo adventure 
fornito di testo e grafica. 
Giochi del tipo Wizard and 
the Princess e Blade of Black 
Poole, di compagnie tipo A- 
dventure International e Sierra 
On-Line, utilizzavano degli ana- 
lizzatori sintattici molto semplici, 
e la grafica veniva realizzata 
con immagini statiche, normal 
mente sui due terzi superiori 
dello schermo. Per gli standard 
a cui siamo abituati, la grafica 
e l’analisi sintattica di quei gio- 
chi sono molto al di sotto della 
norma. Ma questo accadeva 
molto tempo fa e come disse 
una volta qualcuno, “L'unico 
fatto costante nell’industria dei 
computer è il cambiamento.” 
Ora la Firebird Software 
(Rainbird in IngtIterra) ha ripre- 
so i test' e ‘a grafica classica 
degli adver:ure. introducendo 
due nuov programmi per l’A- 
mica: S. son Dreams e Jewels 
? Darzness. ll primo è una tri- 
‘a c'avyentura di Science Fi- 
fantascienza) che è am- 
ta su un mondo chiamato 
Ecen. mentre Jewels of Dar- 
kness è una trilogia di avven- 
ture fantastiche del tipo cappa 
e spada ambientate su un mon- 
do chiamato Valaii. Le avven- 








ture non sono strettamente col- 
legate tra loro, si può così gio- 
carne una alla volta e in qual- 
siasi ordine considerandole co- 
me giochi separati. Sono co- 
munque più piacevoli se 
giocate nell'ordine in cui sono 
presentate dagli autori. C'è la 
possibilità di ottenere il titolo di 
'Supremo Avventurierò se ri- 
portate il vostro punteggio da 
un gioco a quello seguente. 

Il gioco ricalca le avventure 
di Kim Kimberly. Nella prima 
parte, “Snowball”, voi (nelle 
vesti di Kim) siete stati risvegliati 
anzitempo dal vostro stato di 
ibernazione. Siete a bordo della 
Snowball 9, un'astronave di co- 
loni inviata verso un pianeta 
chiamato Eden. Qualcuno sta 
sabotando la navicella, e il com- 
puter di bordo pensa che l’u- 
nico in grado di intervenire con 
successo siate voi. Se riuscirete 
nell'intento, avrete vinto. Poi si 
passa alla seconda parte, 
“Return to Eden”, inizia con la 
ciurma della Snowball 9 che si 
è appena destata e vi sta ac- 
cusando di tradimento; un na- 
stro danneggiato nella sala di 
controllo sembra dimostrare 
che avete cercato di far esplo- 
dere l'astronave. 

L’episodio finale della trilogia 
è “Worm in Parad'se”, per at- 
tivare quest 7a parte dovre- 












te essere sta: 70 0 abili in quet- 
la precece7:= = comunque ci 
vorrà Un 25 ‘°7pO per rag- 
giunge” = l'a sete diventati 


Serambre 1988 


una specie di leggenda, la vo- 
stra figura ha assunto propor- 
zioni mitiche. 

Jewels of Darkness inizia con 
“Colossal Adventure, il classico 
testo d'adventure. Dovrete trova- 
re ed esplorare le Colossal Ca- 
verns, poi dovrete immagazzina- 
re il tesoro che avrete trovato nel- 
le caverne in una piccola capan- 
na situata esattamente nelle vici- 
nanze della partenza del gioco. 
Terminata questa prima parte vi 
ritroverete in “Adventure Quest”, 
qui dovrete trovare e distruggere 
il cattivo Lord Demon Agaliarept. 
La terza parte del gioco, 
"Dungeon Adventure”, inizia 
immediatamente dopo che avre- 
te assolto al compito precedente, 
e dovrete esplorare | domini di 
Lord Demon alla ricerca del te- 
soro, di magia e di avventura. 

La parte grafica di Silicon 
Dreams non mi è familiare, ma 
il primo tracciato di Jewels of 
Darkness lo è certamente, dal 
momento che è una variante 
dell'adventure originale. Que- 
sto programma (l'originale, non 
la versione Rainbird) fa parte 
del software di pubblico domi- 
nio (naturalmente privo di dise- 
gni). Sono stati aggiunti alcuni 
comandi in modo da migliorare 
quest'ultima versione. Indub- 
biamente ci sono molte perso- 
ne che non giocano con com- 
puter game da molto tempo e 
che perciò non hanno mai vi- 
sto prima questi classici. Sono 
dei giochi divertenti e la loro 
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importanza storica li rende 
maggiormente appetibili. 

| giochi sono valutabili in mo- 
do positivo almeno per alcune 
ragioni. Mappe e descrizioni 
scritte sono abbastanza ben fat- 
te, e con il costo di un gioco ne 
acquistate in realtà tre. Questi 
(accanto agli aspetti storico-no- 
stalgici), sono tutte le parti va- 
lutabili positivamente. Il punto 
debole è la grafica, fatto que- 
sto abbastanza sorprendente, 
dal momento che la Rainbird 
utilizza dell’ottima grafica in al- 
tri adventure da loro prodotti, 
ad esempio: The Pawn. Ma ad 
un'analisi più accurata ci si ac- 
corge che The Pawn è stato 
creato da un altro gruppo di 
persone, e forse questo fatto 
può spiegare la differenza. 

Comunque, i giochi sono ac- 
cattivanti e le storie interessanti. 
AI giorno d'oggi i possessori di 
computer, ed in modo speciale 
coloro che hanno un Amiga, so- 
no abituati ad una grafica che 
utilizza un minimo di otto colori 
(in questo caso ne attendeva- 
mo almeno il doppio). Siamo 
oramai talmente abituati a ve- 
dere dei giochi che utilizzino 
un'ottima grafica che questi 
giochi rischiano di deludere più 
di una persona. C'è stato un 
tempo in cui questi giochi erano 
il meglio che il mondo dei com- 
puter potessero offrire! 

Il sistema vi permette di spe- 
gnere le figure per mezzo di 
una selezione da menù. L'ana- 


lizzatore sintattico è abbastanza 
primitivo, anche se le descrizio- 
ni in certe parti sono gradevoli 
e stanno a significare che la sin- 
tassi è stata ampliata (Ramsave 
e OOPS!, a nostro avviso sono 
le nuove configurazioni più utili) 
. Ma questo non è ancora ab- 
bastanza per stimolare le aspet- 
tative dei giocatori. | giochi han- 
no un bisogno primario di es- 
sere sostenuti da una ottima 
grafica, e la grafica in questo 
caso non è in grado a tratti di 
sostenere nemmeno se stessa. 
La Rainbird va comunque cita- 
ta in senso positivo per un fatto: 
sul retro della confezione (la 
quale ci appare come un con- 
tenitore per videocassette) è 
raffigurato un disegno tratto dal 
gioco. Il disegno non è stato 
modificato in aleun modo e ap- 
pare sulla confezione come ap- 
pare sullo schermo. La software 
house non ha in alcun modo 
cercato di celare o di fornire 
una falsa impressione del gio- 
co. Dal momento che il mercato 
spesso non corre sui binari del- 
l'onestà, dobbiamo dare credi- 
to di ciò alla Rainbird. 

E dobbiamo sottolineare an- 
che l'utilità delle nuove configu- 
razioni di Ramsave e OOPS! E 
utile poter registrare velocemen- 
te nella RAM la vostra attuale po- 
sizione di gioco, vi libera anche 
dalla cpia dello schema di pro- 
tezione. Il tuttovene attivato quan- 

‘ do si cerca di effettuare il restore 
da un disk-based registrato. 


Questo fatto può risultare noioso 
quando si effettuano varie ope- 
razioni di restore e Ramsave ri- 
sulta molto utile per questo tipo 
di situazioni. 

OOPS! è ugualmente utile 
perché vi permette di ritornare 
alla mossa precedente. In que- 
sto modo potete esplorare mol- 
to facilmente i luoghi più diffi- 
cili. È senza dubbio un'ottima 
configurazione e spero che an- 
che altre compagnie cerchino 
di implementarla nei testi dei lo- 
ro adventure. Ci sono vari punti 
di valore in questi giochi. | gio- 
catori che non sono interessati 
alla grafica, o che trovino que- 
ste storie interessanti, apprez- 
zeranno questi giochi a basso 
prezzo. Certamente i giocatori 
più smaliziati non saranno sor- 
presi dalle modalità dei giochi 
e dalle strutture di programma. 
zione utilizzate in questa occa- 
sione; tali giochi possono co- 
munque essere considerati co- 
me un ottimo terreno di allena- 
mento per coloro che hanno 
appena iniziato la loro carriera 
con gli adventure. Un'ultima co- 
sa mi preme sottolineare e cioè 
di non aspettarsi della grafica 
simile a quella che si può ritro- 
vare in The Pawn, aspettatevi 
invece di essere riportati ai tem- 
pi in cui l'industria dei compu- 
ter era giovane, e quattro co- 
lori erano veramente il massi- 
mo. 
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Per avere un 
delle vostre 


di Massimo Lavarian 
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nuaba 87? 





a stampa più nitida 
immagini grafiche 


read 


"SULL'OT 


al DEL NOSTRO 
è PRODOTTOA 


SRI 
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Per coloro che sentono la necessità di 
sviluppare graficamente i loro elaborati, e 
per quelli che esprimono meglio il loro la- 
voro con più colori, ad esempio per stam- 
pa su fogli di acetato (i lucidi utilizzati poi 
per proiezioni su lavagne luminose), par- 
leremo di quelle stampanti che meglio sod- 
disfano tali esigenze. Nella famiglia delle 
stampanti, infatti, considereremo quelle a 
getto d' inchiostro ed in particolare la XE- 
ROX 4020, un prodotto di qualità i cui ri- 
sultati sono veramente ottimi, anche se il 


. prezzo la fa ritenere un frutto ancora proi- 


bito, pur essendo il rapporto prezzo/qualità 
uno dei migliori per questo tipo di stam- 


. panti. 





Stampanti a getto d’inchiostro 





La scrittura con tale tipo di macchina 
viene realizzata mediante un flusso di pic- 
cole gocce che viene proiettato contro car- 
ta di tipo comune, meglio se rispondente 
ai consigli della Casa Costruttrice. Nel caso 
del getto continuo, l'inchiostro viene invia- 
to a pressione costante in un serbatoio con 
un ugello. Per interrompere il flusso di u- 
scita e generare un insieme di gocce e- 
quidistanti, viene utilizzato un cristallo pie- 
zoelettrico (nel caso della Xerox 4020, il 
cristallo piezolelettrico viene regolato da 
un circuito elettronico controllato da un 
microprocessore) che realizza vibrazioni 
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ad alta frequenza. Queste gocce riescono 
a formare il carattere per mezzo di un op- 
portuno caricamento elettrostatico gover- 
nato dalla logica della macchina a partire 
dalla matrice dei punti d’inchiostro che lo 
formano che influisce sulla direzione finale 
del singolo soggetto. Le gocce non de- 
viate dal campo elettrico fisso, che devono 
attraversare per arrivare alla carta, vengo- 
no raccolte, filtrate e rimesse in circolazio- 
ne. 

La scrittura del carattere viene eseguita 
verticalmente e con spostamenti della te- 
stina lungo la linea di stampa. Alcuni mo- 
delli possono essere dotati di più ugelli in 
linea per ottenere prestazioni migliori, co- 
me nel caso della Stampante XEROX 4020 
con la quale la tecnologia ci presenta una 
serie di soluzioni innovative ed interessanti. 
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Caratteristiche principali 
della stampante 


La stampante XEROX 4020 è una tra le 
più versatili e veloci fra quelle a getto d'in- 
chiostro. Le sue caratteristiche la rendono, 
però, più adatta ad applicazioni con stru- 
menti grafici, o per complesse stampe di 
elaborati CAD o CAM e via via crescendo 
per l’image processing ai vari livelli (vedasi 
tabellina accanto),che non per applicazio- 
ni di pura e semplice stampa. 


Questo modello, in Draft mode (emis- 
sioni di tabulati o bozze di stampa) è in- 
fatti in grado di 40 battute al secondo u- 
sando i suoi 4 colori, mentre arriva a 80 
battute al secondo se si usa solo l'inchio- 
stro nero, prestazioni in tal senso molto 


modeste; in modo standard disegna una 
pagina in due minuti. 

Esso dispone di quattro cartucce d’in- 
chiostro (nero, blù, magenta, giallo) e 
stampa in 7 colori diversi e nelle varie 
combinazioni di questi e può raggiungere 
un'ottima definizione nella stampa di qua- 
lità disponendo di una matrice di 120x120 
punti per pollice quadro in draft mode e 
240x120 punti in NLQ (near Letter Qua- 
lity). 

Dotata di una testina che presenta 20 
ugelli (otto per il nero e quattro per ogni 
colore base), la XEROX 4020 stampa 
spruzzando sulla carta minuscoli punti 
d'inchiostro che, sovrapponendosi, crea- 
no caratteri pieni e netti con risultati di 
buona qualità. Il buffer di 8 Kbyte consente 
una certa autonomia dal computer, e per- 
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PIAITI 
CRISTALLO DI me] 
PIEZDELETTRICO VERTICALE À i 5 
ec UGELLO ti 2 
di. ER Le ci sr T 
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TESTINA 
DI SCRITTURA 
È RACCOGLITORE 7 
4 ILIZZATE 
POMPA a GENERATORE GOCCE INNI 
| CARATTERI 


Schema di 
funzionamento. 

















CONTENITORE 
INCHIOSTRO 





SERBATOIO 
INTERMEDIO 











mette di sincronizzare meglio le diverse 
velocità di produzione e stampa dei dati. 
Dispone di un insieme completo di 96 ca- 
ratteri standard ASCII. 

Il pannello di controllo, ridotto all'essen- 
ziale, si trova sul lato anteriore, alla destra 
dell'operatore e consente poche ma fon- 
damentali operazioni. Oltre alla lucetta di 
accensione e di "pronto stampa” e dei 
soliti tasti di comando per l'avanzamento 
della carta, presenta quattro led, ognuno 
riservato a segnalare l'esaurimento di un 
colore, ed uno per l’ eventuale assenza di 
carta. 





Componentistica 
Tolto l'involucro, l'interno della macchi- 


na ci rivela un mondo disposto in maniera 
molto ben ordinata di cui ora vedremo, per 
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sommi capi, la posizione, la funzione e 
l’uso. Possiamo distinguere due parti: una 
meccanica composta da numerosi tubicini 
e da pompe che rappresentano il braccio 
della macchina ed una elettronica, la men- 
te, posta su una scheda in cui spicca il 
processore... e trovano posto pure il dri- 
ver dei motori e la ROM del generatore di 
caratteri. 

Circa la sua composizione interna rite- 
niamo non ci sia altro da aggiungere se 
non che tutte queste componenti siano 
disposte in maniera essenziale e razionale, 
canone fondamentale di una buona pro- 
gettazione a tutto vantaggio dell’affidabi- 
lità e del costo finale della macchina. 

La maggior parte delle operazioni di 
manutenzione che riguardano la macchina 
sono lasciate ad uno speciale liquido con- 


tenuto in una cartuccia di facile uso posta 
nella parte inferiore e fornita dalla ditta co- 
struttrice. Sempre da essa vengono fornite 
le cartucce contenenti l'inchiostro per la 
stampa. Simpatico e molto comodo è il 
metodo di caricamento delle vaschette 
d'inchiostro: ogni vaschetta presenta una 
scanalatura ad incastro per la sua speci- 
fica cartuccia, questo onde evitare il cari- 
camento della vaschetta con una cartuc- 
cia di colore diverso. L' esaurimento del- 
l'inchiostro viene segnalato da una spia 
luminosa (una per ogni colore) posta sulla 
parte superiore dell'involucro della stam- 
pante. 

Una volta predisposta la macchina alla 
scrittura si può effettuare un test di stampa 
che ci da la verifica dell'intensità e della 
regolazione dei colori, della grossezza e 
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della chiarezza dei caratteri, tutto questo 
operando sul tasto "TEST SWITCH" po- 
sto sul retro. In presenza di sbavature o 
altri difetti nella stampa si può intervenire 
sul tasto "RECOVERY SWITCH", posto vi- 
cino al precedente. Questo regola auto- 
maticamente i colori con un ciclo che dura 


Particolare 
delle vaschette 
dei colori. 


Comandi 
della stampante. 


Connettori posti 
sul retro. 





20 è Settembre 1988 





Set di carte 
e colori. 





circa quattro minuti, compiendo delle pro- 
cedure di asportazione dell’ inchiostro sec- 
co dagli ugelli della testina e rimuovendo 
eventuali presenze d' aria dal sistema. Ad 
ogni modo la regolazione può essere ef- 
fettuata pure manualmente intervenendo 
sugli opportuni Switch. 


Ad ogni modo questi interventi si ren- 
dono necessari solamente ogni qualvolta 
si aggiunge l'inchiostro nella vaschetta; in- 
fatti la testina, onde evitare problemi legati 
all'essicamento dell'inchiostro, si posizio- 
na, a stampa ferma, in corrispondenza di 
un cuscinetto che la mantiene ben chiusa 
e pronta all'uso dopo essere rimasta inat- 
tiva anche per un lungo periodo. 


La presenza di un interfaccia parallela 
Centronics a 8 bit fa si che sia compati- 
bile con i principali sistemi di home com- 
puter; è disponibile pure la possibilità d'in- 
terfacciamento con la porta seriale RS- 
232-C. 
Il meccanismo di trascinamento della 
carta è la frizione, il che consente di usarne 
di qualsiasi tipo nei limiti imposti dalla lar- 
ghezza del carrello e che raggiunga al 
massimo 228 mm per riga; è possibile an- 
che optare per |’ alimentatore per fogli 
Digitalizzazione singoli © per il trattore. Perché non si ve- 
in H.A.M. stampata Vifichil' incoveniente dell’assorbimento del 
con la Xerox 4020. colore da parte della carta con conseguen- 
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ti possibili sbavature e soprattutto una no- 
tevole diminuzione dell'intensità del colore 
è consigliabile l’uso di una carta speciale 
distribuita dalla stessa Xerox. 





Conclusioni 





La stampante XEROX 4020 per le ca- 
ratteristiche sopra riportate si è dimostrata 
un ottimo strumento producendo docu- 


Amiga 2000 visto dalla Xerox 4020. 


menti di qualità. Affiancandola ad un Per- 
sonal Computer AMIGA 2000 si è dimo- 
strata all’ altezza della situazione dando il 
dovuto risalto alle produzioni grafiche di 
quest’ultimo ed a disegni di qualsiasi tipo. 
Oltre alle caratteristiche sopracitate non 
sono state trascurate altre migliorie quali 
ad esempio la silenziosità (il rumore è in- 
feriore a 55 Db) per cui non impone par- 
ticolari limiti nella collocazione. 


La stampante Xerox 4020 ci 
è stata gentilmente prestata 
dalla ’’Informatica Italia”, Cor- 


so Re Umberto 128 Torino tel. 
501647, che ne gestisce la di- 
stribuzione. 
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v/Amica 


TELECAMERA B/N 
750 LINEE - 15 LUX 


I 


STATIVO 
PROFESSIONALE 
A 4 LAMPADE 


WORKSTATION GRAFICHE Axa 


AMIGA 2000-2FDD 880K 3"1/2 





oo 
VD AMIGA 


a) 








VIDEOREGISTRATORE 






Sea Bet ose 


INTERFACCIA 
DIGITALIZZATRICE 


DIGITALIZZATORE 
TEMPO REALE 










(4 FOTOGRAMMI AL SEC.) 






ESPANSIONE 2MB INTERNA 
HARD DISK 20/40MB SU SCHEDA 
SCHEDA 68020 + 68881 








066: GRAFICA — SCANNER BIN 
sale iu KURTA ISIONE A PIANO FISSO 
FORMATI A3/A4 
RISOL 1000 PPI 
STATIVO_ PROFESSIONALE 4 LAMPADE ...350.000 
HARDWARE AMIGA SUI Seen ARES 150.000 
AMIGA 500 ..........iescccccicrierreerer eccessi 930.000 INTERFA 713 RA 1 A ama 71,1...99.000 
AMIGA 500 + Monitor 1084 ..1.550.000 GENLOCH E DEE EI ‘850.000 
AMIGA 2000 senza monitor ... 1.950.000 TAVOLETTE GRAFICHE KURTA: 
AMIGA 2000 2 drive 3"1/2 ....0... PENMOUSE (8° X.3* 200 PPI) smi 250.000 


ESPANSIONE 512K interna A500 . 
ESPANSIONE 1MB esterna A1000 
ESPANSIONE 2MB esterna A500/A1000 


ESPANSIONE 2MB intern 


DISK DRIVE 3"1/2 esterno A500/A1000 
DISK DRIVE 3"1/2 interno A2000 
HARD DISK 20MB EST. A500/A1000 


HARD CARD 20MB SCSI 
HARD CARD 20MB 20MB 
HARD CARD 40MB MS-D 









ia A2000 


A2000. ............. ° t: ‘250.000 
SCSI A2000 
OS A2000 





Sistema a Sano da 12MB removibili della Kodak + 


5 Cartridge (60 M 


SCHEDA JANUS Nr A2000 . 


SCHEDA JANUS AT A2000 


KIT SOSTITUZIONE MOTOROLA 68010 ... 


SCHEDA 68020 + 68881 


AMIGA-EYE A500/A1000/A2000 .. 





...2.950.000 





16MHZ 





VD AMIGA FRAMEGRABBER_...................... 

VD 2000 DIG MOLIZATORE COLORE IN 6080” 

A500/A1000/A2000 .............. iii 150.000 

TELECAMERA SECURIT T-979 

SOFTWARE ORIGINALE: 
INFINITY SOFTWARE: JET... « 75.000 
SHAKESPEARE . Pl ‘, 39,000 
GALILEO 2.0... 
ISMINC: 129.000 
THE SURGEON ............. 65.000 GOLD DISK: 
MICROSEARCH: PROFESSIONAL PAGE 
CITY DESK... 189000... di5 MO 
MICROPROSE: PAGESETTERITALO QI0 02 
SILENT SERVICE . 55 000 ACTIVISION: 
MOEBIUS . 1331) HACKER 
ULTIMA Il 49 0) THE AAT OF CHESS 
MCROMAGIC: SHANGHAI di 
FIRMS IN FLIGHT 111 000 RORAOWAN TIE . 85000 
MIC ROILLUSIONS* LITTLE COMPUTER PEOPLE 
FinE POWER... 35 C00 ina 
DYNAMIC CAD 640 200 MINDSHDCOV, 
FHOTO PAINT J50 MIN TASS TINIES 
n° 000 
MINDSCAPE: PORTAL 
DEFENDER OF THE GROWN GEE BEE AIR RALLY 
+. 59 MO AEGIS: 

HALLEY PROJECT caccia 69.000 ANIMATOR .................... 175.000 
DEJA VU... «69.000 ARAZOK'S TOMB.. 





UNINVITED. 
NEWTEK: 
DIGI-PAINT.....uncrrirerrne 
OXXY INC: 

MAXIPLAN 500 ............. 
MAXYIPLAN PLUS, ...... 
PSYGNOSIS: 

E ARBARIAN 
CELITERATOR... 

SUBLOGIC: 

FLIGHT SIMULATOR......75.000 


s0.n 69,000 





79.000 


190.000 
.250.000 








ANIMATE 3D .... 


PIX COMPUTER S.R.L 
VIA F. D'OVIDIO, 6C 
TEL. 06/8293507-825731 
00137 ROMA 
COMPUTER & Co. 

P. IVA 08309630583 

















SERIE IS 8,5" x 11" 1000 PPI . 
SERIE IS 12" x 12" 1000 PPI ... 
SERIE 1S 12" x 17" 1000 PPI 
PENNA A DUE BOTTONI 
CURSORE A 4 BOTTONI 
CAVO E SOFTWARE PER AMIGA 


STAMPANTI 


PANASONIC KX-P1081 80 COL 120 CPS .... 
NEC P2200 80 COL 216 CPS 24 AGHI 
NEC P6 80 COL 216 CPS 24 AGHI 


NEC P6 KIT COLORE 


NEC P7 136 COL 216 CPS 24 AGHI ... 
NEC P7 136 COL 216 CPS 24 AGHI ... 














CITIZEN HQP40-24 AGHI ........... 1.350.000 
CITIZEN HQP40-KIT COLORE _.... 1.550.000 
XEROX 4020 INK JET COLORE ............... 3.450.000 
OKI LASER LL6 i 11 tagloian 
LASEROMS LP _n.t Mae i o I 
HARD COPIER SHINKO .............iiienn 
POLAROID PALETTE PER AMIGA ............ 3. 450€ 000 
COMMODORE: 
MIND WALKER i... 69.000 RETURN TO ATLANTIS 
TEXTCRAFT PLUS...... 145.000 .rrreioreenerierreeienien iene 000 
SUPERBASE PERSONAL PROGRESSIVE P. &S; 






LOGISTIX .. 
DISCOVERY: 
srelui: Cialaa 


tm 





VALI ii 
HEW HORIZOHS: 
FRIMFITE  .. . ». .175000 
NORTHEASTERN SOFT: 
PUBLISHER PLUS, 129 200 
RIGHT ANSWER GROUP: 


THE DIRECTOR .. ..83200 
METACOMCO: 
MUC PASCAL 159 000 
ASSEMBLER LANGUAGE 
‘++ + 139000 
EAGLE SOFTWARE: 
BUTCHER 20. . 49 (00 
ELECTRONICS ARTS: 
ADVENTURE € SET 38000 
ARTIC FOX... seen 29, 





BARD'S TALE L.. 
CHESSMASTER 2000. di 
INSTANT MUSIC ............ 
MARBLE MADNESS. 
SKYFOX ........ 

TEST DRIVE 
DE LUXE MUSIC C.S. 
DE LUXE PAINT ll 

DE LUX PRINT ,..... sia 
DE LUXE VIDEO 1.2. 
FERRARI FORMULA 1 





DISPONIBILE 
LATTICE C 
COMPILER 
VERS. 40 

LIT. 450.000 








MASTERTRONIC: 
RI ASTARALI 
ELI 

ble 








TaRTu 


Mati iBrniiniti 


SEDE MANZDIER Va g) 
AREBIRD 

BUEBLE BORBLE 29 Dn 
MIRRORSOFT: 

DARK CASTLE . 4910) 
KING OF CHICAGO 590 
TETRIS .. . . 39000 
ANCO: 

DENMODLITION, 19 avi 
FLIGHT PATH 79” 19900 
GRID START . . 1990 
JUMP JET... 19900 


KARTING GRAND PRIX 


LAS VEGAS 
PHALANX 

SKY FIGHTER .... 
STRIP POKER 
THAI BOXING . 


FUOTBALL FORTUNE , 
MELBOURNE HOUSE: 
ROADWARS ... . 
XENOX ............ 


49.000 































CITIZEN HQP40 
COLORE - 24 AGHI - 80 COL 
200 CPS-380 x 360 DPI 


XEROX 4020 
INK JET COLOR - 80 COL 
120 CPS-360 x 360 DPI 


LASER QMS LPSB+ 


POLAROID PALETTE 
SUPPORTO FOTOGRAFICO 
DIAPOSITIVE 
PERSONAL COMPUTER 
LINEA HITECH PERSONAL COMPUTER 
LINEA XT 4.7/10 MHZ 
XT-HT 256K 1FDD 360K TAST. AVANZ. ....... 850.000 
XT-HT 256K 2FDD 360K TAST. AVANZ. ....1.050.000 
XT-HT 256K 1FDD 360K HD 20MB 
TAST. AVANZ. ui 1.550.000 
LINEA AT 10MHZ 0 WAIT STATE 
AT-HT 512K 1FDD 1.2MB TAST. AVANZ... 1.950.000 


AT-HT 512K 1FDD 1.2MB 1 HD 20MB TASE AVANZ. 


i da data 2 550 000 
AT-HT 512K 1FDD 1 2MB i HD &5MB TAST AVANZ 
RUI energia ano 150.000 
AT-HT 512K 1FDD 1.2MB 1 HD 140MB TAST. IRA 
LINEA 386 16-20 MHZ 
TOWER 2MB 1FDD 1.2MB 1 HD 40MB TAST. TR 

n 
TOWER 2MB 1FDD 1 2MB 1 HD 85MB 1asî 0 
n On 
TOWER 2MB 1FDD 1 2MB 1 HD 140MB TAST AVANZ. 
9850 000 
SCHEDE PC 
SCHEDA SERIALE ............. iii 58.000 






SCHEDA PARALLELA CENTRONICS 36.000 
SCHEDA EGA AUTOSWITCH ........ 490.000 
SCHEDA FAX ............. .450.000 


SCHEDA COPY CARD ll 


HARD DISK 

HARD DISK 20MB + CONTROLLER 
HARD DISK 40MB + CONTROLLER . > 
HARD CARD 20MB ......................... 3 
HARD CARD 40MB .............. 


COPROCESSORI NATENANO: 

INTEL 8087 6MHZ .. Mraz 
INTEL 8087 8MHZ._.... 
INTEL 80287 6MHZ . 
INTEL 80287 8MHZ_. i 
INTEL 80287 10MHZ .. 5 

INTEL 80387 16MHZ .........iine 1.250.000 


MONITOR 
PHILIPS 7502/7513 Ali 12". 180.000 











PHILIPS 9073 EGA COLORE 14" .............. 850.000 
PHILIPS 8833 COLORE ta a riaraià . 550.000 
MULTISYNC MONOCROMATICO .................. 550.000 
MULTISYNC COLORE .................. un 1.250.000 


MODEM 
ESSEGI 1200M 300/1200 BAUD V21/V22 Pie ca 
x 


PLE 000 
ESSEGI 1203M 300/1200/75 V21/V23 VibEOTEL n 





LN 2 e ii 2 BALL, TL II Rie) 
750.000 
PEGI 10007 CARD ‘360.000 
TELEFAX 
TELEFAX BACON-TELEFONO G2/G3 FORMATO A4 
Sa ee earlier ae 2.250.000 


VENDITA PER CONTRASSEGNO SU TUTTO IL TERRITORIO NAZIO- 
NALE. OFFERTE E PREVENTIVI SU WORKSTATIONS GRAFICHE 
COMPLETE. SETTORI CAD 2D/CAD 3D/ANIMAZIONI 3D/DIGITALIZ- 
ZIONYUVIDEO BROADCAST/DESKTOP PUBLISHING. 

SI INVIANO A RICHIESTA SCHEDE TECNICHE PRODOTTI. 

SCONTI PER RIVENDITORI QUALIFICATI, 


PROGRAMMI 





LE ORIGINI 





DI UN FAMOSO 








Siamo lieti di presentarvi il capostipite 
dei programmi dedicati alla grafica tridi- 
mensionale per Amiga, esso nasce dalla 
strepitosa mente di Colin French, autore 
anche delle versioni successive create 
per il package Aegis Draw. Senz'altro è 
interessante notare come questo Editor 
sia nato ancora una volta in un linguag- 
gio tanto criticato, ma poplarissimo come 
il Basic. Se vi state muovendo nella gra- 
fica tridimensionale del vostro Amiga pro- 
vate questo “programmino” Basic. Con 
ROT, questo è il nome del programma, 
potete creare un oggetto composto da 95 
punti e da 95 poligoni colorati. Tutto quel- 
lo che vi necessita sono almeno 512K ed 
un mouse. 

Questo programma richiede molta me- 
moria per cui se dal vostro Workbench non 
vi risultano almeno 380.000 byte liberi non 
provate nemmeno a farlo girare. Ricordate 
che il file “GRAPHICS.BMAP” che si tro- 
va nel disco dell’AmigaBasic deve stare 
sullo stesso dischetto di ROT, spicciatevi 
dunque a trasferire questo file. 
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PROGRAMMA: 





Diamo una rapida occhiata al 
programma 





In ROT l'oggetto è composto da poli- 
goni, come le facce di un cubo. Il poligono 
viene generato selezionando i punti usati 
per i suoi vertici. Ogni poligono deve avere 
almeno tre vertici ma non più di sei. Ogni 
poligono può avere un differente colore, 
ed una accurata scelta delle tonalità può 
produrre dei interessanti effetti d'ombra. 
Dopo che è stato creato un'oggetto viene 
disegnata una serie di riquadri (frame) cia- 
scuno contenente l'oggetto in differenti po- 
sizioni. Questi riquadri sono catturati come 
immagini bitmap. Se noi diamo una rapida 
sequenza a questa serie di immagini otte- 
remo un'azione animata. In ogni frame do- 
vete specificare la rotazione e lo sposta- 
mento dell'oggetto lungo le tre assi X, Y e 
Z. Ad esempio incrementando la rotazione 
di un frame attorno all'asse Y otterrete un 
effetto trottola all'esecuzione dell’anima- 
zione. 


L’Editing dell’Oggetto 





Quando Rot viene lanciato per la prima 
volta compare lo schermo Editor di oggetti, 
da qui potete passare all'Editor Azione cli- 
ckando il primo termine del menu Azione. 
Per ritornare indietro portarsi sul primo ter- 
mine del menu Oggetto. Alla sinistra dello 
schermo Editor ci sono tre sezioni dedi- 
cate alla posizione dell'oggetto rispetto alle 
tre assi. Visto dall’alto, di lato e di fronte. 
Per vedere come questi si incontrano tra 
loro immaginate di proiettare la figura fron- 
tale e quella dall'alto finché i loro angoli 
non si toccano. Ora avete un mezzo cubo 
che circonda il vostro oggetto. Ogni rota- 
zione applicata all'oggetto avverrà intorno 
al centro di questo cubo. Nei tre riquadri 
della parte sinistra dello schermo c’è vi- 
sualizzato un cerchio che mette in eviden- 
za il punto selezionato al momento. Molte 
volte due punti appaiono uno sopra l’al- 
tro, controllate che la posizione del punto 
sia quella realmente da voi voluta. 
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di Alessandro Prandi 


Un punto con tutte tre le cordinanate 
settate a zero viene considerato non esi- 
stente e quindi non viene visualizzato. Cli- 
ckando in uno dei tre riquadri si cambie- 
ranno due delle tre cordinate del punto. 
La modifica delle due cordinate dipende 
dal riquadro in cui si setta il punto. gli an- 
goli del corrente poligono selezionato ven- 
gono evidenziati con il colore arancio. Ov- 
viamente se non è stato scelto alcun ver- 
tice, il poligono non esiste e pertanto non 
verrà evidenziato niente. . 

Nella parte in alto a destra dello scher- 
mo di editing dell'oggetto troviamo una 
serie di controlli per la gestione dei punti. 
In alto c'è la selezione del punto da mo- 
dificare, premete il tasto del mouse quan- 
do siete posizionati sulle relative frecce e 
per portarvi al Punto seguente o prece- 
dente. Se volete uno spostamento più ra- 
pido posizionatevi direttamente nella barra 
tra le due frecce e clickate con il tasto si- 
nistro. Per settare rapidamente tutte le cor- 
dinate al punto zero optate per la casella 
"PUNTO ZERO'. In questo modo il punto 
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diventa inesistente, fate quindi attenzione 
che nessun vertice dei vostri poligoni non 
usi questo valore come vertice. 

Piu’ in basso troviamo un altro set di 
controllo per l’edit dei poligoni. Per creare 
un poligono bisogna selezionare i punti 
che ne formano i vertici. Usate l'opzione 
per la scelta del punto, questo verrà evi- 
denziato nei vari riquadri, quindi premete 
su ’+ il Pt prec.’ per gestire il punto come 
vertice. Un poligono puo’ avere dai tre ai 
sei vertici, gii angoli vengono evidenziati 
nei vari riquadri. Ricordate che è molto 
importante la sequenza nella quale sele- 
zionate | vari punti. Andate in una direzione 
lungo il perimetro del poligono, se vedete 
che gli angoli si incrociano allora saprete 
che i punti non sono in ordine. Selezionate 
'CLR ULTIMO PT'per ripercorrere la lista 
dei vertici finché non avrete eliminato il 
problema. Per togliere l’intero poligono, 
non i punti, optate per '’CLR POLIGONO”. 

Nella parte inferiore destra dello scher- 
mo c’e' il Palette dei colori. Il colore con il 
quale verrà disegnato il poligono è eviden- 


ziato da un rettangolo arrancione. Per 
cambiare colore vi sarà sufficiente posizio- 
narvi sul colore scelto e clickarlo. Passia- 
mo ora alle selezioni possibili da menu. Nel 
menu oggetto ci sono quattro voci, EDI- 
TOR OGGETTO, CARICA OGGETTO, 
SALVA OGGETTO, NUOVO OGGETTO. 
Lasciamo per ora la prima, e quindi note- 
rete che ci sono le possibilità di salvare una 
figura editata con ROT e quindi ricaricarla 
oppure si può cancellare l'oggetto al mo- 
mento disegnato e ricominciare da capo. 
Ricordate che gli ‘oggetti’ vengono salvati 
con il suffisso .ROTOBJ appeso alla fine 
del nome del file. Quando caricate i file 
oggetto non servirà scrivere .ROTOBJ alla 
fine del nome. Se dimenticate il nome di 
un file potete scegliere la voce FILES’ nel 
menu Rot e cercare di individuarlo men- 
tre la lista scorre sullo schermo. 





L’Editing dell'Azione 





Selezionate il primo termine del menu 
Azione per passare allo schermo di edi- 


25 


PROGRAMMI 





ting dell’azione. La parte superiore e’ ri- 
servata alla rappresentazione delle figure 
mentre in basso troviamo una serie di pa- 
rametri di controllo. A sinistra c'è la sele- 
zione del frame, posizionandosi sopra le 
relative frecce si passerà da un frame al- 
l'altro e scegliere con quale lavorare. In 
ogni frame si possono modificare le rota- 
zioni dell'oggetto rispetto alle tre assi. Per 
cambiare un valore in particolare basterà 
clickare sopra lo ’0’ relativo ed immetere 
il numero desiderato. | valori immessi ven- 
gono controllati dal programma per assi- 
curarsi che essi siano compresi in valori 
accettabili. Dopo aver inserito i valori una 
freccia arrancione vi indica la scritta ‘Rifà 
Frame’ per comunicarvi che il frame deve 
essere ridisegnato. 

Clickando in ’Rifa' Framè si ordina al 
programma di ricalcolare l’immagine nel 
frame in modo che corrisponda ai valori 
da voi indicati. A questo punto potete pas- 
sare al frame successivo e ripetere l’ope- 
razione, e continuate sinché tutti i 12 frame 
sono stati ridisegnati. Se ritornate allo 
schermo dell’Oggetto e ridisegnate un'al- 
tra figura e quindi la riportate nello scher- 
mo dell'Azione essa non comparirà nei vari 
frame. Per aggiornarli dovrete selezionare 
ciascun frame e quindi clickare su 'Rifà 
frame’; per evitare questa noiosa proce- 
dura potete selezionare ‘’Rifà tutto' ed il 
programma penserà a completare l’intera 
sequenza. Dopo aver disegnato tutti e do- 
dici i frame premete il tasto del mouse su 
Play’ per vedere l'animazione. Regolate 
la velocita' di esecuzione agendo sull'in- 
dicatore "Tempo'. Per rivedere la sequen- 
za animata all'infinito selezionate 'Ripete 
ciclo’ nel menu azione, un segno vicino 
alla scritta comparirà quando questa fun- 
zione sarà attivata. 

Un altra opzione del menu Azione è 
quella di ‘Ripete ciclo inverso’. Questa vo- 
ce sta ad indicare che l'animazione par- 
tirà dal frame 1 e continuerà fino al 12 e 
poi ritornerà indietro di nuovo all'1. Questi 
ultimi due comandi possono essere usati 
anche contemporaneamente. Per fermare 
una sequenza animata selezionate ’Stop'. 


Gli altri termini contenuti nel menu Azione 
servono a salvare l’azione dell’oggetto, a 
caricarla da disco ed a cancellare l’azione 
corrente, Il file che viene salvato contiene 
solo i fattori necessari per disegnare il fra- 
me. Quando caricate un'azione seleziona- 
te ‘Rifà tutto’ per rigenerare i frame. Essi 
non vengono salvati perché occuperebero 
all'incirca 109K. L'operazione richiedereb- 
be più di sei minuti per il caricamento o il 
save tramite l’AmigaBasic. Speriamo che 
i comandi BLOAD e BSAVE arrivino pre- 
sto anche nel Basic Amiga. 

L'ultima voce del menu Azione si chia- 
ma ‘Calcolo tra...’ ed ha un ruolo molto 
importante. Essa calcola e disegna i frame 
che si trovano tra due figure da voi scelte. 
Ad esempio se stabilite le coordinate e 
l'incremento di un oggetto nel frame 1 e 
nel frame 12 e quindi scegliete questa o- 
pzione il programma calcolera’ per voi tutti 
i frame che vanno dal 1 al 12. Settate la 
rotazione su Y del frame 1 a 90 gradi e 
quella del frame 7 a 180. Poiché deside- 
rate avere sei figure intermedie che par- 
tano da 90 e finiscano con 180 gradi ogni 
figura ruoterà di 15 gradi rispetto all’asse 
Y. Naturalmente potete ottenere lo stesso 
risultato disegnando frame per frame ma- 
nualmente mentre con ‘Calcolo tra...’ tutta 
l'operazione viene condotta automatica- 
mente. Ricordate che il programma sce- 
glie sempre la direzione della rotazione in 
modo da muovere l'oggetto attraverso 
l'angolo più piccolo possibile. Se settate il 
frame iniziale a zero gradi e quello finale 
a 270 gradi, l'oggetto ruotera di -90 gradi 
e non di +270. 





Diffetti del programma 





Alla prima esecuzione delle routine A- 
migaBasic del programma avrete l'impres- 
sione che il computer abbia fatto tilt, visto 
il tempo che passa dal run all'esecuzione 
vera e propria. Portate solo un po' di pa- 
zienza prima di spegnere definitivamente 
la macchina. Infatti la seconda volta che 
una routine viene adoperata i tempi diven- 
tano quelli normali. Ci sono alcune parti 


di ROT, come la routine di caricamento dei 
file, che sono così lente da farvi sospet- 
tare addirittura il peggio. Quando eseguite 
un'animazione con attivato il ciclo inverso 
può succedere che ci sia qualche sfarfal- 
lamento dell'immagine. Questo diffetto 
può essere causato dal basic che disegna 
le immagini con la bitmap nel mezzo della 
scansione dello schermo. Talvolta cambia- 
re i colori di un oggetto aiuta a minimiz- 
zare questo inconveniente. 

Gli incrementi di X e Y non sono delle 
vere e proprie trasformazioni tridimensio- 
nali ma solo degli indicatori che servono 
al disegno del frame sullo schermo. Que- 
sta riduzione è necessaria per ridurre le 
misure delle immagini sullo schermo e 
principalmente per limitare la memoria ri- 
chiesta per depositarle. Durante l'anima- 
zione il secondo frame si sovrappone al 
primo, il terzo al secondo e così via, in tal 
modo viene effettuata la cancellazione dei 
frame precedenti. Se usate un incremento 
troppo grande lungo l’asse X di un oggetto 
piuttosto largo allora noterete che parti di 
esso non vengono cancellate perfettamen- 
te. A questo punto o costruite un'oggetto 
più piccolo o diminuite l'incremento in X. 

Il programma così come lo trovate oc- 
cupa tutti i 25K di Basic disponibili e molti 
commenti sono stati tolti dal listato per non 
andare oltre i limiti consentiti. Purtroppo 
nen c'e nemmeno lo spazio per un con- 
trollo di eventuali errori durante l'I/O del 
disco, per cui dovete conoscere perfetta- 
mente il nome del file da caricare, per una 
verifica potete usare l'opzione ‘Files’ nel 
menu ROT. 





Conclusioni 





Sicuramente le versioni successive di 
questo programma, in C, offrono maggiori 
opportunità di quelle qui esposte però a 
nostro modesto parere ci pare molto inte- 
resante osservare la struttura di questo 
programma per capire come anche il Ba- 
sic possa offrire delle bune prestazioni a 
prescindere dal fattore cronometrico. 








G0T0 main: 

intro: 

PRINT" ROT 
PRINT" 


PRINT ‘fo2sn onlus icon reninitonenza 


PRINT" 
PRINT " 
PRINT" 
PRINT " 


Note: le routine in 


che vengono lette." 


AmigaBasic" 
sono molto lente la prima volta” 


PRINT" 
PRINT " 


RETURN 
main: 
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Siate pazienti se ROT vi sembra" 
troppo stressante." 


IF FRE(0)<1000008 THEN CLEAR, 1500008 
GOSUB init 
quit=0 
WHILE NOT( quit) 
b=MDUSE( 0) 
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x=MUUSE( 1) 
; y=MOUSE( 2) 
IF b<>0 THEN 
IF objscr THEN GOSUB edobj 
IF actscr THEN GOSUB edact 
1 END IF 
SE m=MENU( 0) 
ER i=MENU( 1) 
IF m<>O THEN GOSUB menuchk 
z$=INKEY$ 
IF 2$<>"" THEN BOSUB keychk 
WEND 
GOSUB cleanup 
END 





menuchk: 
ON m GOSUB rotmenu, objmenu, actmenu 
AETUAN 
dr rotmenu: 
il IF i-? THEN GOSUB listfiies 
dA IF i=3 THEN quit=(-1) 
* RETURN 





objmenu: 
IF isf AND objser=0 THEN 
objser=(-1) 
actscor=0 
MENU 
i MENU 
o MENU 
ò MENU 
MENU 
n MENU 
ts MENU 
- MENU 
MENU 
- MENU 
MENU 
60SUB 
END IF 
IF i=2 THEN GOSUB loadobj 
IF i=3 THEN GOSUB saveobj 
IF i*4 THEN G0SUB newobj 
RETUAN 
actmenu: 
IF i=1 AND actser=0 THEN 
actser=(-1) 
objscr=D 
MENU 
MENU 
MENU 
n MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 2,4, 
FOR n=1 TO 12 
frmchg(n}=1 








4 0 to WWW 


ac 


5LIO AUMNÒ- BUI 
FINI. N 


w.objscer 








BONS OVNDOAUN 


+ABS( actrpt) 
+ABS( actrev] 





no IN NO NO Wa W9 Lo LI Ww W W& 
de be a ieeta 





e NEXT 
Ù GOSUB drw.actscr 
END IF 
IF i=2 THEN GOSUB loadact 
si IF i=3 THEN BGOSUB saveact 
IF i=4 THEN GOSUB newact 
IF i=6 THEN 
actrpt=NOT( actrpt) 
MENU 3,6, 7+A@8S( actrpt) 
END IF 
IF is? THEN 
actrev=NOT( actrev) 
MENU 3,7,1+A@S( actrev) 
END IF 
IF i=8 THEN GOSBUB calctween 
RETURN 


listfiles: 
s$="File in:" 
" GOSUB drw.filereq 
Do s$="DF0;" 
* GOSUYB getstring2 
IF s$<>"c" AND s$<>"C" AND s$<>"" THEN 
CLS 
FILES s$ 
: PRINT 
We GOSUB click.continue 
È IF objscr<>0 THEN 
a GOSUB drw.objscr 
= ELSE 
GOSUB drw.actser 
END IF 
BOSUB nobut 
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END IF 
RETURN 


loadobj: 
s$="Load:" 
GOSUB drw.filereg 
GOSUB getstring 
IF s$<>"c" AND s$<>"C" AND s$<>"" THEN 
5$=s$+".ROTOBU” 
OPEN s$ FOR INPUT AS #1 
FOR n=0 TO 95 
FOR n2-0 T0 3 
INPUT#1,pt(n,n2) 
NEXT 
NEXT 
FOR n=0 TO 95 
FOR n2=0 TO 6 
INPUT#!,poly(n,n2) 
NEXT 
NEXT 
FOR n=0 TO 95 
INPUT#1,polycirin) 
NEXT 
FOR n=0 TO 95 
INPUT#1, vrt(n) 
NEXT 
CLOSE #1 
pt=1 
poly=1 
END IF 
GOSUB drw.objser 
RETURN 
saveobj: 
s$="Save:" 
GOSUB drw.filereg 
G0SUS getstring 
IF s$<>"c" AND s$<>"C" AND s$<>"" THEN 
s$=s$+".ROTOBU” 
OPEN s$ FOR OUTPUT AS #1 
FOR n=D TO 95 
FOR n2=0 T03 
PRINT#1,pt{n,n2); 
NEXT 
NEXT 
FOR n=0 TO maxpoly 
FOR n2=0 T0 6 
PRINT#1,poly(n,n2); 
NEXT 
NEXT 
FOR n=0 TO maxpoly 
PRINT#1, polyclr(n) 
NEXT 
FOR n=0 TO maxpoly 
PRINT#1,vrt(n); 


NEXT 
CLOSE #1 
END IF 
GOSUB drw.objser 
RETURN 
newobj: 
s$=" Cancello l'oggetto?" 


GOSUB you.sure 
IF sure THEN 
FOR n=0 TO maxpt 


FOR n2=0 T0 2 
pi{n,n2)=0 
NEXT 
NEXT 
FOR n=0 TO maxpoly 
FOR n2=0 T0 & 
poly(n,n2)=0 
NEXT 
polyelr(n)=0 
vrt(n)=0 
NEXT 
pist 
poly=i 
END IF 
GOSUB drw.objser 
RETURN 


loadact: 
s$="Load:" 
GOSUB drw.filereq 
GOSUB getstring 
IF s$<>"c" AND s$<>"C" AND s$<>"" THEN 
s$=s$+" ROTACT" 
OPEN s$ FOR INPUT AS #1 
FOR n=1 TO 12 
INPUT#1,xrot(n),yrot{n),zrot{n) 
INPUT#1,xtran(n),ytran(n),ztran(n}) 
NEXT 
INPUT#1,spd,actrpt,actrev 
CLOSE#1 
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frm=1 
FOR n=1 TO 12 
frmchg(n)=1 
NEXT 
GOSUB drw.frmnum 
GOSUB drw.spdnum 
G0S5UB drw.factors 
GOSUB drw.update 
MENU 3,6, 1+ABS( actrpt) 
MENU 3,2, 1+ABS[( actrev) 
END IF 
LINE (0,0)-(311,131),0,bf 
GOSUB putfrm 
RETUAN 


saveact: 
s$="Save:" 
BOSUB drw.filereg 
GOSUB getstring 
IF s$<>"c" AND s$<>"C" AND s$<>"" THEN 
s$=s$+".ROTACT" 
OPEN s$ FOR OUTPUT AS #1 
FOR n=1 TO 12 
PRINT#1,xrot{n});yrot(n};zrot(n); 
PRINT#I,xtran(n);ytran(n);ztran(n); 
NEXT 
PRINT#1,spdjactrpt;actrev; 
CLOSE #1 
END IF 
LINE(0,0)-(311, 131) ,0,bf 
GOSUB putfrm 
RETURN 


newact: 
s$=" Cancello l’azione?” 
60SUB you.sure 
IF sure THEN 
FOR n=0 TO 12 
xrot(n}=0:yrot(n)=D:zrot(n)=0 
xtran(n}=0:ytran(n}=0:ztran(n)=0 
NEXT 
spd=20 





actrpt=0 
actrev=0 
MENU 3,6,1 
MENU 3,7,1 
frm=! 

END IF 

60SUB drw.actser 

RETURN 


calctween: 
GOSUB gettween 
IF stfrm>andfrm THEN SWAP stfrm,endfrm 
stp=endfrm-stfrm 
LINE(0,0)-(311,131),D,bf 
IF stp>i THEN 
xrot=xrot(endfrm)-xrot(stfrm) 
IF xrot>180 THEN xrot={360-xrot}*(-1) 
IF xrot<-180 THEN xrot=xrot+360 
stpxrot=xrot/stp 
yrot=yrot(endfrm)-yrot(stfrm) 
IF yrot>1B0 THEN yrot={360-yrot)*(-1) 
IF yrot<-180 THEN yrot=yrot+360 
stpyrot=yrot/stp 
zrot=zrot(endfrm)-zrot(stfrm} 
IF zrot>180 THEN zrot={ 360-zrot}*(-1) 
IF zrot<-180 THEN zrot=zrot+360 
stpzrot=zrot/stp 
xtran=xtran(endfrm}-xtran(stfrm) 
stpxtran=xtran/stp 
ytran=ytran(endfrm)-ytran(stfrm) 
stpytransytran/stp 
ztran=ztran(endfrm)-ztran(stfrm) 
stpztran=ztran/stp 
FOR frm=stfrm+1 TO endfrm-1 
n=frm-stfrm 
xrot(frm)=xrot(stfrm}+INT(stpxrot*n) 
IF xrot(frm)>359 THEN xrot(frm)=xrot{frm)-360 
IF xrot(frm)<O THEN xrot(frm)=xrot(frm)+360 
yrot(frm)=yrot(stfrm}+INT(stpyrot*n 
IF yrot(frm)>359 THEN yrot{ frm)=yrot(frm)-360 
IF yrot(frm)<0 THEN yrot{frm)=yrot(frm}+360 
zrot(frm)=zrot{stfrm)+INT(stpzrot*n 
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IF zrot(frm)>359 THEN zrotf frm)=zrot(Frm)-360 
IF zrot(frm)<O0 THEN zrot(frm)=zrot(frm)+360 
xtranf frm)=xtran( stfrm)+INT( stpxtran*n) 
ytran( frm)=ytran(stfrm})+IN}(stpytran*n} 
ztren(frm)=ztran(stfrm)+INT(stpztran*n) 
GOSUB drw.frmnum 
G0SUB drw.factors 
GOSUB high.redraw 
GOSUB drw.frame 
GOSUB getfrm 
frmchg( frm)=0 
GOSUB drw.update 
GOSUB unhigh.redraw 
NEXT 
frm=stfrm 
GOSUB drw.frmnum 
GOSUB drw. factors 
END IF 
LINE(0,0)-(311,131),0,bf 
GOSUB putfrm 
RETURN 


gettween: 
GOSUB drw.tweenreg 
maxchar=2 
xt=188:yt=24 
GOSUB getstring 
stfrm=VAL{ 5$) 
IF stfrm<1 THEN stfrm=1 
IF stfrm>12 THEN stfrm=12 
yt=82 
GOSUB getstring 
endfrm=VAL(s$) 
IF endfrm<' THEN endfrm=1 
IF endfrm>12 THEN endfrm=12 
RETURN 


drw.tweenreg: 
LINE( 58,48) -(254,92),0,bf 
LINE( 60,50) -(252,90),3,bf 
LINE(61,51)-(254,89),2,bf 
CALL move&(rp&, 76,66) 
PRINT "Calcolo intermedio” 
CALL move&(rp&, 92,74 
PRINT " Dal Frame:" 
CALL move&(rp&, 108,82) 
PRINT "Al Frame:" 

RETURN 





drw.filereg: 
LINE(50,48)-(262,92),0,bf 
LINE( 52,50) -(260,90),3,bf 
LINE(53,51)-(259,89),2,bf 
CALL move&(rp&,60,66 
PRINT ”" File Requestor" 
IF s$<>"File in:" THEN 
CALL move&(rp&,92,74) 
PRINT "(’C’ per uscire)" 
END IF 
CALL moveg&(rp&, 60,82 
PRINT s$ 
xt=68+LEN( 5$) #8 
yt=82 
maxchar=23-LEN( s$) 
RETURN 
frmohg(Ffrm)=0 
GO0SUB drw.update 
NEXT 
frm=tfrm 
GOSUB drw.frmnum 
60S5UB drw.factors 
G0SUB putfrm 
GOSUB unhigh.redraw2 
GOSUB nobut 
RETURN 


playbut: 
GOSUB high.play 
GOSUB unhigh.stop 
GOSUB freeze.menu 
frmine=1 
clickstop=0 
WHILE NOT(clickstop) 
frm=>frm+frmino 
IF frm>J2 THEN 
IF actrev THEN 
frm=11 
frmince=(-1) 
ELSEIF actrpt THEN 
frm=1 
ELSE 
frm=1 
clickstop=(-1) 
END IF 





END IF 
IF frm<i THEN 
IF actrpt THEN 
frm=2 
frminc=i 
ELSE 
frm=1 
clickstop=(-1) 
END IF 
END IF 
GOSUB putfrm 
G0SUB drw.frmnum 
FOR n=0 TO 39-spd 
b=MDUSE( 0) 
x=MDUSE( 1) 
y=MOUSE( 2) 
IF b<>Q0 THEN 
IF x>260 AND x<306 AND y>152 AND y<164 THEN 
clickstop=(-1) 
n=39-spd 
END IF 
IF x>263 AND x<303 AND y>178 AND y<183 THEN 
spd=x-263 
GOSUB drw.spdnum 
END IF 
END IF 
NEXT 
WEND 
GOSUB drw.factors 
GOSUB drw.update 
GOSUB unhigh.play 
xt=108:yt=184 
maxchar=4 
numonly=1 
GOSUB getstring2 
G0SUB high.stop 
GOSUB unfreeze.menu 
GOSUB nobut 
RETURN 


stopbut: 
RETURN 


spdslider: 
spd=x-263 
G0SUB drw.spdnum 
RETURN 


mod.xrot: 
s$=STR$(xrot(frm)) 
xt=108:yt=125 
maxchar=4 
numonly=1 
GOSUB getstring2 
xrot(frm}=VAL[( s$) 
xrot(frm)=xrot(frm) MOD 360 
IF xrot(frm)<0 THEN xrot[( frm)=xrot(frm}+360 
GOSUB drw.factors 
frmchg(frm)=1f 
GOSUB drw.update 
GOSUB nobut 

RETURN 


mod.yrot: 
s$=STR$(yrot(frm)) 
xt=164:yt=125 
maxchar=4 
numonly=1 
GOSUB getstring2 
yrot(frm)=VAL( s$) 
yrot{frm)=yrot{frm) MOD 360 
IF yrot(frm)<0 THEN yrot(frm)=yrot(frm})+360 
G0SUB drw. factors 
frmehg(frm)=1 
GOSUB drw.update 
GOSUB nobut 

RETURN 


mod.zrot: 
s$=STR$(zrot(frm) 
xt=220:yt=125 
maxchar=4 
numonly=1 
GOSUB getstring2 
zrot(frm)=VAL( s$) 
zrot{ frm})=zrot(frm) MOD 360 
IF zrotffrm)<D THEN zrotffrm)=zrot( frm)+36C 
6G08UB drw.factors 
frmchg( frm)=1 
GOSUB drw.update 
GOSUS8 nobut 

RETURN 


mod.xtran: 
s$=STR$(xtran(frm)}) 
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xtranf frm) “VAL( s$} 
IF xtran{ frm)<-90 THEN xtran( frm)={-90 
IF xtran(Ffrm)>90 THEN xtran( frm)=90 
GOSUB drw.factors 
frmchg( frm)=1 
GOSUB drw.update 
GOSUB nobut 
AETURN 


mod.ytran: 
s$*STR$(ytran(frm)) 
xt=164:yt=184 
maxchar=3 
numonly=1 
GOSUB getstring2 
ytran(frm)=VAL(s$) 
IF ytran(frm)<-8 THEN ytran(frm)=(-8) 
IF ytran(frm)>B THEN ytranl frm)=8 
G08UB drw.factors 
frmebg(frm)=1 
GOSUB drw.update 
GOSUB nobut 
RETURN 


mod.ztran: 
s$=STR$(ztran( frm})] 
xt=220:yt=184 
maxchar=4 
numonly=1 
G0SUB getstring2 
ztran( frm)=VAL( s$) 
IF ztran(frm)<0 THEN ztran( frm)=0 
IF ztran(frm)>999 THEN ztranf frm)=999 
GOSUB drw.factors 
frmchg( frm)=1 
GOSUB drw.update 
60SUB nobut 
RETURN 





drw.frame: 
GOSUB unit.matrix 
IF xrot(frm)>O THEN GOSUB apply.xrot 
IF yrot(frm)>D THEN GOSUB apply.yrot 
IF zrot(frm)>0 THEN GOSUB appiy.zrot 
IF ztran(frm)>O THEN GOSUB apply.ztran 
GUSUB transform.pts 
G0SUB converti2sor 
GOSUB sort.poly 
LINE(0,0)-(311,131),0,bF 
GOSUB drw.object 

RETURN 


matprep: 
FOR row=0 T0 3 
FOR col=0 TO 3 
tri(row,col)=tran(row,col) 


tr2(row,col}=0 
NEXT 
NEXT 
RETURN 


unit.matrix: 
FOA row=0 TO 3 
FOR col=0 TO 3 
tran(row,col)=0 
IF row=col THEN tranlrow,col)=1 
NEXT 
NEXT 
RETURN 


matmult: 
FOR row=0 TO 3 
FOR col=0 TO 3 
t=a0 
FOR e1l=0 TO 3 
t=t+tr1(row,e1)}*tr2(e1,c01) 


NEXT 
tran(row,col)=t 
NEXT 
NEXT 
RETURN 
apply.xrot: ‘ruota l'oggetto intorno all'asse X 


GOSUB matprep 
rad=xrot(frm)#23,1416/180 
tr2(0,0)=1:tr2(3,3)=1 
tr2(1,1)=C0S( rad) :tr2(1,2)=SIN( rad)*(-1) 
tr2(2,1)=SIN( rad) :tr2(2,2)=C05( rad) 
GOSUB matmult 

RETURN 


apply.yrot: ‘ruota l’aggetto intorno all'asse Y 
GO0SUB matprep 














rad=yrot(frm) #3. 1416/180 
tr2(1,1)=1:tr2(3,3)=1 
tr2(0,0)=C08( rad) :tr2(0,2)=SIN( rad) 
tr2(2,0)=SIM rad)*(-1):tr2(2,2}=COS( rad) 
GOSUB matmult 

RETURN 


apply.zrot: ‘ruota l'oggetto intorno all’asse Z 
GOSUB matprep 
rad=zrot(frm)#3,1416/180 
tr2(2,2)=1:tr2(3,3)=1 
tr2(0,0)=COS(rad):tr2(0,1)=SIN rad)}#*(-1) 
tr2(1,0)=SIN(rad):tr2(1,1)*COS( rad) 
GOSUB matmult 

RETURN 


apply.ztran: ‘trasporta l’oggetto lungo l’asse Z 
GOSUB matprep 
tr2(0,0)=1:tr2(1,1)=1 
tr2(2,2)=1:tr2(3,3)=1 
tr2(3,2})=ztran(frm) 
GOSUB matmult 
RETURN 


traensform.pts: 
COLOR 1,0 
FOR p=t TO 95 
LOCATE 1,5 
PRINT "Calcola il Punto";p 
IF pt{p,0)<>0 GR pt(p,1)<>D OR pt(p,2)<>O0 THEN 
FOR col=0 703 
t=0 
FOR e1=0 103 
t=t+pt(p,e1)*tran(e1,col) 





NEXT 
tpt(p,col}=t 
NEXT 
END IF 
NEXT 
RETURN 
convert2scr: ' converte i punti sulle coordinate dello schermo 


FDA p=3 TO 95 
rezeye/(tpt(p,2)+zeye) 
tpt(p,0}=INT(tpt(p,0}*r)+hot, 
tpt(p,1)=(INT(tpt(p,1}*r))*#(-1)]+voff 
NEXT 
RETURN 


reset.polyorder; 

FOR n=1 TO maxpoly 
polyord(naD)=0 
polyord(n,1)=0 

NEXT 

RETURN 


sort.poly: 
GOSUB reset. polyorder 
FOR n= TO maxpoly 
LOCATE 1,16 
PRINT "Poligono”n 
IF vrt(n)>O THEN 
t=0 
FOR n2=1 TO vrt(n) 
t=t+tpt(poly(n,n2),2) 
NEXT 
polyord(n,0)=INT{t/vrt(n}) 
END IF 
NEXT 
FOR n=1 TO maxpoly 
LOCATE 1,24 
PRINT n; "di nuovo." 
IF vrt(n)>D THEN 
t=(-100) 
pe(-1) 
FOR n2=1 TO maxpoly 
IF vrt(n2)>0 THEN 
IF palyord(n2,0)>t THEN t=polyord(n2,0):p=n2 
END IF 
NEXT 
polyord(n,1)=p 
polyord(p,0)={-100 
END IF 


NEXT 
COLOR 1,2 
RETURN 


drw.object: 
FOR n=1 TO maxpoly 
IF vrt[{n}>2 THEN 
FOR n2=1 TO vrt(polyord(n,1)) 
AREA( tpt{ poly(polyord(n,1),n2),0)+xtran(frm),tpt(poly(polyord 
(n,1),n2},1)+ ytran(frm)) 
NEXT 
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COLOR polyclr(polyord(n,1)) 
AREAFILL 
END IF 
NEXT 
COLDA 1,2 
RETURN 


getfrm: 

GET( hoff-64+xtranf frm),voff-58+ytran(frm)}-{hoff+63+xtran(frm), 
voff+57+ytran(frm)),frameE((frm-1)*frmsize 
RETUAN 


putfrm: 

PUT{ hoff-64+xtran[frm),voff-S8+ytran(frm}),frame&({frm-1)*frmsize) 
+ PSET 
RETURN 


getstring: 
sé="" 


getstring2: 
GOSUB freeze.menu 
GOSUB nokey 
numchar=LEN( s$) 
CALL move&(rp&,xt,yt} 
PRINT 68; 
2$3"" 


getstring3: 
LINE(xt+numohar*B+1,yt-2)-(xt+numchar*8+4,yt+2) ,3,bf 
28=INPUT$( 1) 
LINE(xt+numchar*8+1,yt-7]-(xt+numchar#*8+4,yt+2),2,bf 
IF 2$=CHA$(8) DR z$=CHRA$( 31) OR z$=CHA$( 127) THEN 
IF numchar>0 THEN 
PRINT CHR$(8);" “;CHAS(8); 
numchar=numchar-1 
s$=LEFT$(s$,numchar) 
END IF 
END IF 
IF ASC(2$)>31 AND numchar<maxchar AND numonly=0 THEN 
s$=s$+28 
PRINT z$; 
numcher=numchar+f 
END IF 
IF ASC(z28)>3f AND numchar<maxchar THEN 
IF numonly=1 THEN 
IF {z$>="0" AND z$<="9") DA z$="-" THEN 
s$=5$+2$ 
PRINT 2$; 
you, sure: 
GOSUB drw,surereg 
GOSUB nobut 
answer=0 
WHILE NOT( answer) 
b=MOUSE( 0) 
x=MOUSE( 1) 
y=MOUSE( 2) 
IF b<>0 THEN 
IF y>BO AND y<92 THEN 
IF x>?5 AND x<127 THEN 
sure=(-1) 
answer=(-1) 
END IF 
IF x>187 AND x<239 THEN 
sure=0 
answer=(-1) 
END IF 
END IF 
GOSUB nobut 
END IF 
WEND 
AETURN 


drw.surereg: 
LINE(43,48)-(270, 100} ,0,bf 
LINE( 45,50) -(268,98),3,bf 
LINE{ 46,51) -(262,97),2,bf 
CALL moveg&(rp&,53, 66) 
PRINT " Siete sicuri!!!" 
CALL moveé( rp&,53,24) 
PRINT LEFTS$(s$,24 
LINE(25,80)-(127,92),1,b 
LINE 187,80) -(239,92),1,b 
CALL moveb(rp&,93,89) 
PRINT "SI" 
CALL maveg&{rp&, 190,89 
PRINT" NO" 

RETURN 


keychk: 
RETUAN 


adobj: 
IF x>189 AND x<306 THEN 





IF y>24 AND y<32 THEN GOSUB ptislider 
IF y>82 AND yx<90 THEN GOSUB polyslider 
IF y>36 AND y<48 THEN GOSUA zeropt 
IF y>94 AND y<106 THEN G0SUB addpt 
IF y>f10 AND y<122 THEN GOSUB undopt 
IF y>426 AND y<138 THEN GOSUB delpoly 
IF y>142 AND y<171 THEN GOSUB selelr 
END IF 
IF x>3 AND x<82 AND y>3 AND y<B2 THEN 
pi(pt,2)=(x-vx1)*(-1) 
pi(pt,0)=(y-vy1)#(-1) 
GOSUB drw.views 
GOSUB nobut 
END IF 
IF x>3 AND x<82 AND y>96 AND y<125 THEN 


pi(pt,2)=(x-vx2)#(-1} 
pi(pt, i)=(y-vy2)#(-1) 
GOSUB drw.views 
GOSUB nobut 

END IF 

IF x>97 AND x<126 AND y>96 AND y<175 THEN 
ptfpt,0)=x-vx3 
pt(pt,1)={y-vy3)#(-1) 
GOSUB drw.views 
G0SUB nobut 

END IF 

RETURN 


zeropt: 
pept 
GOSUB unhigh.pt 
GOSUB erase.pt 
pt(pt,0)=0 
pt(pt, 1)=0 
pt(pt,2)=0 
GOSUS drw.pt 
GOSUB high.pt 
RETURN 


addpt: 
IF vrt(poly)>5 THEN BEEP:RETURN 
IF pt(pt,0)=0 AND pi(pt,1)=0 AND pt(pt,2)=0 FHEN RETURN 
vrt(poly)=vrt(poly)+1 
poly(poly,vrt(poly})=pt 
GOSUB drw.views 
GOSUB nobut 
RETURN 


undopt: 
IF vrt(poly)>O THEN 
poly(poly,vrt(poly)}=0 
vrt(poly)=vrt(poly)}-1 
END IF 
GOSUS8 drw.views 
G0SUB nobut » 
RETURN 


delpoly: 

IF vrt(poly)>O THEN 
ce=polyclrf(poly) 
GOSUB unhigh.clr 
FOR n=0 TO vrt(poly) 

poly{poly,n)=0 
NEXT 
vrt(poly)=0 
polyelr(poly)=0 
ce=polyclr(poly) 
GO0SU8 high.clr 

END IF 

GDSUB drw.views 

BOSUB nobut 

RETURN 


selclr: 
IF x>191 AND x<304 THEN 


csINT{(x-192)/14)+INT((y-143)/7)*8 

IF c<>polyclr(poly) THEN 
GOSUB high.clr 
SWAP c,polyclr(poly} 
G0SUB unhigh.clr 

END IF 

END IF 
RETURN 


drw.views: 

BOSUB erase.viaws 

pept 

GOSUB high.pt 

FOR p=1 TO maxpt 
G0SUS drw.pt 

NEXT 

p=pt 

t=poly 
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7 Edi tor Azione 
Canvica Azione 
Salva Azione 
Huova Azione 
Ripete cicla 
Ripete ciclo 








inverso 
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FRAME # 1 dn. [ Rifa” Frame |] [Piay] 


[ri sami mzenionee 


LIRA: a 
ie 











TE = tut e o na 


Finestra azione. 








FOR poly=1 TO maxpaly -{vx2-pt(poly{poly,n},2},vy2-pt(poly(poly,n},1)} 
80SUB drw.poly LINE( vx3+pt{poly(poly,n-1),0},vy3-pt(poly(poly,n-1),8}) 
NEXT -{vx3+pt{poly(poly,n},0}),vy3-pt(poly(poly,n)},1)) 
poly=t NEXT 
GOSUB high.poly LINE(vx1-pt(poly(poly,n-t},2),vy1-pt(poly(poly,n-1},0)) 
RETURN —(vx1-pt{poly{poly,t),2},vyi-pt(poly{poly,1},0)) 
LINE{ vx2-pt(poly(poly,n-1),2},vy2-pt(poly(poly,n-1),1)) 
erase.views: -{vx2-pt(poly(pely,1),2),vy2-pt(poly(poly,1),1)) 
LINE(2,2)-(83,83),0,bf LINE(vx3+pt(poly{poly,n-1),0),vy3-pt{poly(poly,n-1},1}) 
LINE{2,95)-{83,126),0,bf -(vx3+pt(poly(poly,1},0),vy3-pt(poly(poly,1),1)}). 
LINE(96,95)-(122,126),0,bf END IF 
RETURN END IF 
drw.pti RETURN 
IF pt(p,0)<>0 OR pt(p,1)<>0 OR pt(p,2)<>D THEN erase.poly: 
PSET(vx1-pt(p,2),vyi-pt(p,0)) COLOR 3 
PSET(vx2-pt(p,2),vy2-pt{p,1)} GOSUB drw.poly 
PSET( vx3+pt(p,0),vy3-pt(p,1)) COLOR 1 
END IF RETURN 
RETURN 
bigh.poly: 
erase.pt: COLOR 3 
COLGA 0 GOSUS drw.poly 
GBOSUB drw.pt RETURN 
COLOR 1 
RETURN unhigh.poly: 
G0SUS drw.poly 
high.pt: RETURN 
CIRCLE(vx1-pt(p,2),vy1-pt(p,0)),2,2 i 
CIACLE( vx2=pt(p,2),vy2-pt(p,1)),2,2 | RaElieeri 
CIRCLE( vx3+pt(p,0),vy3-pt{p,1)},2,2 y2=INT( 0/8) 
RETURN REFE-=GA8 
LINE( 192+x2*14,143+y2*7)-(205+x2#14, 149+y2*7),3,b 
unhigh.pt: RETURN 
CIACLE(vx1-pt(p,2),vyi-pt(p,09)),2,0 ‘ 
CIRCLE(vx2-pt(p,2),vy2-pt(p,1)),2,0 unhigh.clr: 
CIRCLE(vx3+pt(p,0),vy3-pt(p,1)),2,0 y2=INT( c/8) 
RETURN persero 
LINE( 192+x2*14, 143+y2*7)-(205+x2#14,149+y2*7),0,b 
drw.poly: RETURN 
IF vrt(poly)>0 THEN pura 
E IF x<192 THEN 
PSET(vX1-pt(poly(poly,1),2),vy1-pt(poly(poly,1),0)) p=pt 
PSET(vx2-pt(poly(poly,1),2),vy2-pt(poly(poly,1},1)) GOSUB unhigh.pt 
PSET(vx3+pt(poly(poly,1),0),vy3-pt(poly(poly,1),1)) ptspt-1 
IF vrt{poly}>1 THEN IF pt<1 THEN pt=f 
FOR n=2 TO vrt(poly} p=pt 
LINE(vxf-pt(poly(poly,n-1),2),vy1-pt(poly(poly,n-1) 0)) GOSUB drw.ptnum 
-(vxf-pt(poly(poly,n},2),vyf-pt{poly{poly,n},0)) GOSUB bigh.pt 
LINE( vx2-pt(poly(poly,n-1),2),vy2-pt(poly(poly,n-1},1)) L G0SUB nobut 
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ELSEIF x>298 THEN 


p=pt 
4 GOSUB unhigh.pt 
pt=pt+1 
IF pt>maxpt THEN pt=maxpt 
pept 





6G0S8UB drw.ptnum 
GOSUB high.pt 
GO0SUB nobut 
ELSEIF x>199 AND x<295 THEN 
pept 
G05UB unhigh.pt 
: ptex-199 
Se pept 
GOSUB drw.ptnum 
GOSUB high. pt 
GOSUB nobut 
END IF 
RETURN 


polyslider: 
da IF x<197 THEN 
, e=spolycir(poly) 
e, GOSUB unhigh.clr 
pol GOSUB unhigh.poly 
da poly=poly=1 
o IF poly<1 THEN poly=t1 
GOSUB drw.polynum 
GOSUB high.poly 
e=spolyclr(poly) 
GOSUB high.clr 
GOSUB nobut 
: ELSEIF x>298 THEN 
c»=polyclr(poly) 
GOSUB unhigh.clr 
GOSUB unhigh.poly 
poly=poly+1 
IF poly>maxpoly THEN poly=maxpoly 
GOSUB drw.polynum 
GOSUB high.poly 
o=polyelr(poly) 
GOSUB high.clr 
GOSUB nobut 











Finestra oggetto. 
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edac 
IF 
IF 
IF 
IF 
IF 
IF 
IF 





di EN 
Hi IF 


EN 





ELSEIF x>199 AND x<295 THEN 
c=polycir(poly) 
DI GOSUB unhigh.clr 
Ni GOSUB unhigh.poly 
; poly=x-199 
GOSUB drw.polynum 
80SUB high.poly 
c=polyclrf poly) 
GOSUB high.clr 
BOSUB nobut 
END IF 
RETURN 


t: 
x>4 AND x<122 AND y>150 AND y<158 THEN GOBUB frmslider:RETURN 
x>40 AND x<250 AND y>136 AND y<148 THEN GOSUB drw.frm:RETURN 
x>140 AND x<250 AND y>152 AND y<164 THEN GOSUB drw.allfrm: RETURN 
x>260 AND x<306 AND y>136 AND y<148 THEN GOSUB playbut :RETURN 
x>260 AND x<306 AND y>152 AND y<164 THEN GOSUB stopbut:RETUAN 
x>263 AND x<303 AND y>178 AND y<183 THEN GOSUB spdslider:RETUAN 
y>168 AND y<126 THEN 
IF x>92 AND x<440 THEN GOSUB mod.xrot :RETURN 
IF x>147 AND x<196 THEN GOSUB mod. yrot:RETURN 
IF x>203 AND x<252 THEN GOSUB mod.zrot:RETURN 
DIF 
y>177 AND y<185 THEN 
IF x>92 AND x<140 THEN GOSUB mod.xtran: RETURN 
IF x>147 AND x<196 THEN GOSUB mod,ytran: RETURN 
IF x>203 AND x<252 THEN GOSUB mod.ztran:RETURN 
DIF 


RETURN 


frmslider: 
IF x<12 THEN 


frm=frm-1 

IF frm<i THEN frm=i 
GOSUS drw.frmnum 
GOSUB drw.update 
GOSUB drw.factors 
GOSUB putfrm 

GOSUB nobut 


ELSEIF x>114 THEN 


frm=frm+1 
IF frm>42 THEN frm=12 


Oggetto. AA 
di t£90rt Oegge t bar 
arpdiura Oggetto 
alva Oggettu 


n 
(9, 


IR 
L 
RI 


N 


uovo pOgsgetta 


sofa 


Cora 
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GOBUB dry, frmnum 
GOSUB drw.update 
GOSUB drw.Ffactors 
GOSUB putfrm 
608UB nobut 

ELSEIF x>16 AND x<110 THEN 
frm=INT((x-16)/8)+1 
GOSUB drw.frmnum 
GOSUB drw.update 
LINE(0,0)-(311,131),0,bf 
608UB drw.Ffactors 
GOSUB putfrm 
B08U8 nobut 

END IF 

RETURN 


drw.frm: 
GOSUB high.redraw 
GOSUB drw.frame 
GOSUB getfrm 
Ffrmchg(frm)=0 
GOSUB drw.update 
GOSUB unhigh.redraw 
GOSUB nobut 

RETURN 


drw.allfrm: 
GOSUB high.redraw2 
tfrm=frm 
FOR fem=1 TO 12 
GOSUB drw.frmnum 
GOSUB drw. factors 
GOSUB drw. frame 
GOSUB getfrm 
drw.leftarrow:; 
AREA[ x, y) :AREA( x+3, y-3) : AREA( x+3, y+3) ;(AREAFILL 
LINE(x,y)-(x+6,y) 
RETURN 


drw.rightarrow: 
AREA( x,y) : AREA( x-3, y-3) : AREA( x-3, y+3) (AREAFILL 
LINE(x,y)-(x-6,y) 

RETURN 


drw.uparroaw: 
AREA[( x, y} :AREA( x-3, y+3) : AREA( x+3,y+3) :AREAFILL 
LINE(x,y)-{x,y+6) 

RETURN 


drw.ptnum: 
LINE( 199,26) -(296,30),0,bf 
LINE( 198+pt,26)-(201+pt,30),3,bf 
CALL move&(rp&,244,21) 
PRINT RIGHT$( "00"+STRS( pt) 2) 
RETURN 


drw.polynum: 
LINE( 199,84) -( 296,88) ,0,bf 
LINE[ 198+paly,84)-(201+poly,88),3,bf 
CALL. move&(rp&,244,79) 
PRINT RIGHTS( "00"+STAS(poly),2) 
RETURN 


drw.actscr: 
LINE(0,0)-(311,131),0,bf 
LINE(0,132)-(311,186),2,bf 
x=140:y*136:G05U8 drw.button2 
y=152:BOSUB drw.button2 
x=260:y=136:GO0SUB drw.button3 
y=152:G0SUB drw.button3 
LINE( 260,178) -(308,183),1,b 
LINE( 262, 184) -(307,184),0 
LINE -(307,179),0 
LINE(4,150)-( 122,158), 1,b 
LINE(12,150)-( 114,158) ,1,b 
LINE( 6, 159) -( 123,159),0 
LINE -(423,151),0 
COLOR d 
AREA(?, 154) : AREA( 9, 152) : AREA( 9, 156) :AREAFILL. 
AREA( 117,152) : AREA( 119, 154) : AREA( 119, 156) : AREAFILL 
COLOR 1,2 
CALL moveG(rp&, 28,145) :PRINT "FRAME #" 
CALL. move&( rp&,4,125) :PRINT "RAotazioni: X= Ya 
CALL move&(rp&,4,184) :PRINT "Inceremento:X= Ya 
G0SUB unhigh.redraw 
GOSUB unhigh.redraw2 
GOSUB unhìigh. play 
GOSUB high.stop 
CALL move&(rp&, 264,125) :PRINT "Tempo" 
GOSUB drw.frmnum 
GOSUB drw.spdnum 
BOSUB drw.update 
GOSUB drw, factors 
GOSUB putfrm 





284 
z="; 



































RETURN 


drw.frmnum: 
LINE( 15,152) -(111,156),0,bf 


LINE(7+frm#8,152)-(15+frm#8,156),3,bf 


CALL moveb(rp&, 84,145 
PRINT RIGHTS( "00”"+STAS(frm),2) 
RETURN 


drw.spdnum: 
LINE( 262, 180) -( 304,181) ,0,b 


LINE(261+spd, 180) -(265+spd,181),3,b 


BETUAN 
drw.update: 
LINE(115,138)-(131,146),2,bf 
IF frmehg(frm)<>0 THEN 
LINE( 115, 142) -{131,142),3 
LINE -(127,138),3 
LINE( 131,442) -(127,146),3 
END IF 
RETUAN 


drw.faotors: 
CALL moveb(rp®, 108,175) 
PRINT LEFTS$( STAS$( xrot(frm))}+" 
CALL moveg(rp&, 164,175 
PRINT LEFTS(STR$( yrot( frm))+" 
CALL moveg(rp&,220,175) 
PRINT LEFTS$( STR$( zrot( frm))}+" 
CALL move&(rp&,108,184) 
PRINT LEFT$(S8TR$(xtran( frm)}+" 
CALL moveEl rpg, 164, 184) 
PRINT LEFTS(STAS( ytran(frm)}+" 
CALL move8( rp, 220,184) 
PRINT LEFT$(STR$(ztran(frm)}+" 
RETURN 


unhigh.redraw: 
LINE( 141,137) -(249,147),2,bf 
CALL move&(rp&,148,145 
PRINT " Rifa’ Frame” 

RETURN 


high.redraw: 
LINE( 141,137) -(249,147),3,bf 
COLOR 1,3 
CALL move&( rp&, 148, 145} 
PRINT " Rifa’ Frame” 
COLBR 1,2 

RETURN 


unhigh. redraw2; 
LINE( 141,153) -(249, 163) ,2,bf 
CALL moveG(rpé, 186,161) 
PRINT "Rifa’ tutto” 

RETUAN 


high. redraw2: 
LINE( 141, 153) -( 249, 163) ,3,bf 
COLOR 1,3 
DALL move&( rp, 156,161) 
PRINT "Rifa’ tutto" 
COLOR 1,2 

RETURN 


unhigh.play: 
LINE(261,137)-(305,147),2,bf 
CALL moveg( rp&, 268, 145 
PRINT "Play" 

RETUAN 


high.play: 
LINE( 261, 137)-( 305,149) ,3,bf 
COLOR 1,3 
CALL moveg&( rp&,268, 148) 


PRINT "Play" 
COLOR 1,2 
RETURN 


unhigh stop: 
LINE[261,453)-(305,163),2,bf 
CALL moveg(rp&,268,161) 
PRINT "Stop" 

RETURN 


bigh.stop: 
LINE[ 261,153) -(308,163),3,bf 
COLOR 1,3 
CALL maveg(rp&, 268,161) 


PRINT "Stop" 
COLOR 1,2 
RETURN 


drw.button2: 


»,4) 
»,4) 
",4) 
",4); 
",4); 


",4); 
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LINE(x,y]-(x+110,y+12),1,b 
LINE(x+2,y+13)-(x+111,y+13),0 


LINE -(x+111,y+1),0 
RETURN 





drw.button3: 
LINE(x,y)-{x+48,y+12),1,b 
LINE( x+2,y+13) -(x+47,y+13),0 
LINE -(x+47,y+1),D 
RETURN 
numchar=numchar+t1 


END IF 
END IF 
END IF 
IF 2$<>CHA$( 13) THEN getstringa3 
numonly=0 
BOSUA unfreeze.menu 
RETURN 


click.continue: 
LOCATE 21,4 
PRINT” Per continuare 
PRINT 
PRINT " premere il tasto sinistro del mouse”; 
GOSUB nobut 
b=MOUSE( 0) 
WHILE b=0 
b=MOUSE( 0) 
WEND 
RETUAN 


nobut: 
b=MOUSE( 0) 
WHILE b<>0 
b=MOUSE( 0) 
WEND 
RETURN 


nokey: 
2$=INKEY$ 
WHILE z$<>"" 
z$=INKEY$ 
WEND 
RETURN 


init: 
DEFINT a-p,u-z 
DECLARE FUNCTION setdrmd LIBRARY 
DECLARE FUNCTION move LIBRARY 
LIBRARY "dfi1:graphios.library" 
SCREEN 1,320,200,5,1 
WINDOW 2, "Rot",(0,0)-(311,186),0,1 
WINDOW OUTPUT 2 
rp&=WINDOW(8) ‘puntatore alla porta raster 
PALETTE 0,0,0,0 
PALETTE 2,0,.5,0 
PALETTE 31,0,.25,0 
PALETTE 30,.7,.7,0 
LOCATE 3,1 
GOSUB intro 
DIM pt(95,3),poly(95,6),polyclr(95),vrt(95) 
DIM xrot(12),yrot(12),zrot(12) 
DIM xtran(12),ytran(12),ztran(12),frmehg(12) 
DIM tran(3,3),tr1(3,3),tr2(3,3),tpt(95,3),polyord(95,1) 
DIM frameG( 27876) 
ptel:poly=1 
objser=-1:actscr=0 
vxî=43:vx2=43:vx3=136 
vy1=43:vy2=135:vy3=135 
maxpt=95:;maxpoly=95 
frm=1:spd=20 
frmsize=2923 
hoff=156:voff=66:zeye=440 
actrpt=0:actrev=0 
FOR n=1 TO maxpt 


pt(n,3)=1 
NEXT 
GOSUB init.menu 
COLOR 1,0 
GOSUB click.continue 
COLDA 1,2 
GOSUB drw.objscr 
RETUAN 
init.menu: 
MENU 1,0,1, "ROT" 
MENU 1,1,1," Files" 
MENU 1,2,0,"----—- n 
MENU 1,3,1," Esci ” 
MENU 2,0,1, "Oggetto" 
MENU 2,1,2," Editor Oggetto " 
MENU 2,2,1," Carica Oggetto " 
MENU 2,3,1," Salva Oggetto " 
MENU 2,4,1," Nuovo Oggetto " 
MENU 3,0,1, "Azione" 





AMIGA magazine 














MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
MENU 
RETURN 


Editor Azione 
Carica Azione 
Salva Azione 
Nuova Azione 


3 


Ripete ciclo 
Ripete ciclo inverso" 
Calcola tra... A 


n osuoisunio 
DAEDOnOanac- 


A D 19 WI DI) WI Li (9 WI 


freeze.men 
MENU 1,0, 
MENU 2,0, 
MENU 3,0, 

RETURN 


aoeo 


unfreeze.menu: 
MENU 1,0,1 
MENU 2,0,1 
MENU 3,0,1 
RETURN 


cleanup: 
WINDOW CLOSE 2 
SCREEN CLOSE 1 
LIBRARY CLOSE 
PALETTE 0,0,,25,.55 
PALETTE 2,0,0,0 
MENU RESET 

RETURN 


drw.objscr: 
LINE(0,0)-(320,200),2,bf 


LINE(2,2)-(83,83),0,bf 
LINE(2,95)-(83,176),0,bf 
LINE{ 96,95) -( 127,126) ,D,bf 
LINE( 186,2) -(310,53),1,b 
LINE( 186,60) -( 310,176), 1,b 
LINE( 191,142)-(304,171) ,0,bf 
FOR y=0 T0 3 

FOR x=0 T0 7 

LINE( 193+x#14, 144+y#7) -(204+x*14, 148+y*2},y*B+x,bf 

NEXT 
NEXT 
x=189:y=126:G0SUA drw.button 
y=110:GO0SUB drw.button 
y=94:G0SUB drw.button 
y=36:G0SUB drw.button 
y=24:G0SUB drw.scroll 
y=82:60SUB drw.scro]l 
CALL move&(rp&,228,12):PRINT "PUNTO" 
CALL moveG&(rp&,296,21):PRINT "#" 
CALL moveg( rp&,208,45) :PRINT "Punto Zero" 
CALL move6(rp&,220,70}:PRINT "POLIGONO" 
CALL move&(rp&,236,79):PRINT "#" 
CALL move6(rp&,200,103) :PRINT "+ il Pt prec." 
CALL moveg&( rp8,200,119) :PRINT "Clr ultimo Pt" 
CALL moveg(rp8,192,135) :PRINT " Clr Poligono" 
CALL move&rp&,10,92) :PRINT "Vertice Z" 
CALL move&(rp&,10,185):PRINT "Lato 2"; 
CALL move&(rp&,96,185):PRINT "Frontale X"; 
CALL move&(rp&,86,16):PRINT "Xx" 
CALL moveg&(rp&,86,109) :PRINT "Y" 
x=2:y=89:G0SUA drw.leftarrow 
y=182:60SUS drw.leftarrow 
9:y=2:G0SUB drw,uparrow 
y :1608UB drw.uparrow 

x=166:y=1982:G0SUB drw.rightarrow 

GOSUB drw.ptnum 

GOSUB drw.polynum 

G0SUB drw.views 

c=polyclr(poly) 

GOSUB high.clr 

GOSUB nobut 
RETURN 








drw.button: 
LINE(x,y]-{x+116,y+12},1,b 
LINE(x+2,y+123)-(x+112,y+13),0 
LINE -{x+112,y+1),0 

RETURN 


drw.scroll: 
LINE(x,y}-(x+116,y+8),1,b 
LINE( x+8,y)-(x+109,y+8),1,b 
LINE -(x+117,y+1),0 
cOLDR 0 
AREA( x+3, y+4) :AREA( x+S,y+2) : AREA( x+5, y+6) 
AREAFILL 
AREA( x+112,y+2) :AREA(x+112,y+6) : AREA( x+114,y+4) 
AREAFILL 
RETURN 
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italiano specializzato nell’area delle nuove tecnologie, entro cui offre un 
range completo di prodotti e servizi, che garantiscono la risposta precisa 
a qualsiasi domanda di conoscenza o aggiornamento da parte dell'utente, 
sia esso neofita o esperto professionista. 

Le riviste Jackson si articolano da quest'anno in quattro aree editoriali 
specifiche strutturate per mercato, al fine di offrire al lettore notizie 
e servizi sempre più approfonditi e adeguati alla posizione di 
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assoluta leadership del Gruppo Editoriale Jackson, su scala nazionale 


e internazionale. 

Il recente accordo con la multinazionale dell'editoria tecnica V N U 
Business Press Group assicura, infatti, alle riviste Jackson l’accesso a 
un network internazionale di notizie e informazioni tecniche in ogni 
specifico settore di intervento editoriale, indispensabile per parlare di 
nuove tecnologie offrendo il massimo dell’aggiornamento e della profes- 
sionalità. Queste le quattro aree editoriali Jackson per il 1989, cui si 
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aggiungono, ovviamente, l’area Libri e Grandi Opere e l’area Formazione, —Trasmissione Dati e Telecomunicazioni 
che assieme alle riviste, consentono a Jackson di proporsi come l'unico =—TECNOLOGIE E MERCATI 

vero “sistema editoriale integrato nell’High Technology”: =—Watt @ Lab News © Industria Oggi @ Meccanica Oggi e Media 
ELETTRONICA E AUTOMAZIONE © E0 News Settimanale @ Elettronica Production @ Strumenti Musicali 








Oggi @ Automazione Oggi @ Strumentazione e Misure Oggi HOBBY E HOME COMPUTER © Fare Elettronica @ Amiga Magazine 
INFORMATICA E PERSONAL COMPUTER © Amiga Transactor e Commodore Professional è 
Informatica Oggi Settimanale @ Informatica Oggi @ Bit e PC Magazine Supercommodore 64 e 128 e Olivetti Prodest User © 
@ PC Floppy è Computergrafica & Applicazioni @ Compuscuola @ PC Software @ PC Games è 3 ‘4 Sofiware 
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In questa nostra tappa del viaggio al- 
l’interno dell’Amiga ci soffermeremo sul 
modo di lavoro dell’AmigaDOS, Per capi- 
re i cavilli dell’AmigaDOS dovete inanzi- 
tutto frenare l'impulso di sfasciare la ta- 
stiera e quindi evitare di riempire di coto- 
ne le fessure dei vostri drive. 

| drive di cui è dotato l’Amiga sembrano 
essere molto più lenti di quello che non lo 
siano in realtà. L’hardware dedicato ai flop- 
py disk può leggere un'intera traccia. circa 
5600 byte, in un colpo solo, senza dare 
noie al microprocessore, tuttavia va detto 
che per quanto riguarda l’AmigaDOS. se 
compariamo il suo LIST con il normale DIR 
del PCDOS notiamo una notevole lentezza 
del primo rispetto al secondo. Perché? 
Semplice, il LIST non ha un posto dove 
andare per prelevare le informazioni ne- 
cessarie inerenti al file mentre le directory 
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del PCDOS contengono ben specificati i 
nomi dei file, la loro misura, e il luogo in 
cui si trovano. 

L'AmigaDOS divide il disco da 3.5 in 
1760 blocchi di 512 byte ciascuno, se vo- 
lete lo pote'e ver:fcare tramite il comando 
INFO del CLI. Undici blocchi comprendo- 
no una tracc a (track). un giro completo. Il 
numero d' 0.0ecc0 880 è collocato nel mez- 
zo Gela superfcie del dischetto ed è il 

ecco cr.no.cale (root block) che corri 

e: direciory. Nel root block 

sono immagazzinati il nome del disco, l'ora 

e la data dell'ultima modifica. e la tavola 
di controllo (hash table). 

L'hash table è una lista di puntatori alle 
subdirectory o blocchi di inizio file (file hea- 
der blocks). L'AmigaDOS converte il nome 
del file in un numero intero positivo. Que- 
sto numero intero fa riferimento ad un’en- 
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di Alessandro Prandi 


ALL'INTERNO DEL 
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eccetera. | problemi compaiono quando 
due nomi di file hanno lo stesso numero. 
Nell’AmigaDOS per esempio ”Quake” e 
“Los Gatos” hanno tutti e due valore 14. 

Per risolvere questo dilemma si ricorre 
alla subdirectory o al blocco dell’header 
del file. Questo blocco contiene la data e 
l'ora della sua creazione ed un puntatore 
indirizzato alla prossima header della qua- 
le nome ha lo stesso valore. L’AmigaDOS 
compara il nome nel blocco con l’altro. Se 
i nomi differiscono allora l’AmigaDOS pas- 
sa al blocco successivo di header e così 
via, finché non trova il nome esatto o ar- 
riva alla fine della catena, in tal caso il file 
non esiste. 

Questo meccanismo spiega la lentezza 
del comando LIST. L'AmigaDOS deve 
computare il nome del file, andare al pros- 
simo file header, comparare i nomi, andare 





Proseguiamo il nostro 


tratta nella hash table. L'entrata, a turno, 
è il numero del blocco contenente la testa 
del file (file header) o la subdirectory. Le 
subdirectory ed i file header assomigliano 
al blocco principale (root block); una su- 
bdirectory punta ai file header e alle altre 
subdirectory, mentre un file header punta 
ai blocchi di dati, dove il file è posto. 
Per convertire i caratteri del nome di un 
file in numeri interi ’AmigaDOS applica 
una funzione di controllo particolare. Un 
esempio di questa funzione è A=1, B=2 


intinerario alla conquista del CLI 


quindi al prossimo file header se non c'è 
un riscontro proseguire, e così via. Le in- 
formazioni del file sono praticamente dis- 
seminate invece di essere centralizzate co- 
me nel PCDOS. 

Per alleggerire questo notevole ritardo, 
l'AmigaDOS mette le subdirectory ed i file 
header nella metà interna del disco ed i 
blocchi di dati nella metà esterna. Sfortu- 
natamente però questo schema interno- 
esterno crea qualche difficoltà al Workben- 
ch. Quando voi aprite una drawer, l’Ami- 
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gaDOS deve portare la testina del drive 
all'interno per trovare il file header corretto 
e quindi all'esterno per leggere i file 
” info”, i quali contengono le icone. Que- 
sto rapido spostamento della testina del 
drive lungo la superficie del disco provoca 
un racappriciante gracidio. Fortunatamen- 
te le ultime versioni del Workbench rac- 
colgono tutte le icone di un drawer in un 
singolo file. 

Non si può negare che ad un primo 
esame il sistema di archiviazione si pre- 
senti perlomeno intricato, ma bisogna con- 
siderare anche i vantaggi che questo me- 
todo offre. La misura e il numero di file 
.sono limitati solo dalla capienza del disco. 
Ancora più importante, Il sistema è suffi- 
cientemente sovrabbondante in modo da 
permettere che l'albero della directory 
possa essere ricostruito se una parte di 
esso viene distrutta. Due set di puntatori 
descrivono ogni branca dell’albero. Per 
esempio, gli header contengono i punta- 
tori indirizzati al prossimo link nella catena 
vista prima, ai blocchi di dati e cosi via. 
Ogni blocco ha un numero in sequenza, il 
quale indica a chi appartiene, e un che- 
cksum il quale segnala se il blocco è stato 
danneggiato. Con la scansione dei bloc- 
chi, i numeri in sequenza, ed i puntatori 
un programma può ricostruire la struttura 
danneggiata del file del disco. Il Disk-Va- 
lidator compie questo compito ma in pro- 
porzioni limitate. Ogniqualvolta inserite un 
dischetto il Disk-Validator controlla che la 
struttura di archiviazione sia conforme e 
che nessun blocco sia collocato due volte. 

Per l’utente il sistema di archiviazione 
dell’AmigaDOS si presenta come una 
struttura convenzionale ad albero, percor- 
ribile tramite il comando CD. L'AmigaDOS 
vi offre alcuni comandi importanti per po- 
ter manipolare le informazioni contenute 
nelle varie header. 

I blocchi della subdirectory e del file 
header comprendono una flag di prote- 
zione e lo spazio per un commento. Voi 
potete settare le flag di protezione con il 
comando PROTECT nel CLI o tramite l'Info 
del Workbench. Per proteggere un file dal- 
la cancellazione scrivete: 


PROTECT <nomefile> rwe 


Per permettere la cancellazione di un file 
non cancellabile scrivete: 


PROTECT <nomefile> rwed 


Le future versioni del software di sistema 
permetteranno anche di proteggere il file 
dalla lettura, scrittura e dall'esecuzione. 

Per aggiungere un commento ad un file 
scrivete: 


FILENOTE <nomefile> “testo” 
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dove il testo può arrivare sino ad 80 ca- 
ratteri. Il commento lo potete vedere LI- 
STando il file. Voi potete vedere o cam- 
biare il commento anche tramite l’Info del 
Workbench. Con il comando COPY non 
si copia il commento del file, poiché que- 
sto comando crea un nuovo header del 
file. 

Quando voi premete due volte il tasto 
del mouse su un tool o scrivete il nome 
del file da CLI l’AmigaDOS ricerca il file. 
Quando il sistema di archiviazione lo loca- 
lizza il caricatore lo recupera. Il loader leg- 
ge il programma nella memoria usando 
una tecnica chiamata scatter loading (ca- 
ricamento frazionato). Il caricatore fraziona 
il file in pezzi chiamati hunk (fette). Ogn 
fetta comprende l’informazione di come 
essa è inserita rispetto alle altre. Il loader 
a questo punto ripone ciascuna fetta, o- 
gniqualvolta riesce a trovare spazio nella 
RAM e le modifica in modo che ne pos- 
sano trovare un'altra. Lo scatter loading 
sfrutta al meglio la memoria disponibile. 

Una volta che il caricatore ha finito il suo 


compito l’AmigaDOS deve definire come . 


il programma interagisce con il resto del 
computer. Il DOS infatti tratta il programma 
come un processo. Ogni processo pensa 
ad un proprio uso esclusivo del micropro- 
cessore, anche se altri processi possono 
spartire l’uso del processore. 

| programmi caricati da CLI condividono 
il processo CLI, mentre il Workbench ge- 
nera un nuovo processo per ogni tool cli- 
ckato due volte. L'AmigaDOS inoltre crea 
dei processi per sorvegliare la porta se- 
riale, il drive, la porta parallela e così via. 

Questi vari tipi di processi comunicano 
tra loro attraverso delle porte di comuni- 
cazione che agiscono similarmenta ai no- 
stri telefoni. Per esempio un editor di testo 
può chiedere al processo del disco di leg- 
gere in un documento. L'I/O del disco però 
rimane impantanato quando due processi 
richiedono il disco allo stesso momento. 
La testina del drive vola avanti ed indietro 
prelevando i dati di un processo e quindi 
dell'altro. Dal punto di vista dell'utente i 
processi sembrano agire contemporanea 
mente. Diversi comandi vi permettono di 
esaminare e controllare questi processi. 

Normalmente i programmi condividono 
il task del CLI ma voi potete usare un pre- 
fisso per il nome del file con il comando 
RUN, con questa istruzione l’AmigaDOS 
esegue il programma come un processo 
indipendente. Voi potete usare una stringa 
di programmi usando il segno più: 


RUN COPY File RAM: + 
DELETE File + 
ECHO “File spostato in RAM” 





| processi generati con il RUN continua- 
no ad usare la finestra CLI per l'output, 
per creare un nuovo processo con una sua 
finestra scrivete NEWCLI. Con il comando 
STATUS potete listare quali processi CLI 
sono in esecuzione. 

L'AmigaDOS non può interrompere un 
processo una volta iniziato, essi devono 
estinguersi per conto loro. Molti program- 
mi tuttavia vi concedono molto gentilmente 
di essere fermati durante l'esecuzione u- 
sando i tasti CTRL-C. Al posto di CTRL-C 
potete anche usare il comando BREAK, 
BREAK 2 interomperrà l’esecuzione nel 
secondo CLI task, quello con il segno 
"2>". Quello che succede quando usate 
CTRL-C o BREAK dipende solamente dal 
programma, un programma che si rispetti 
riconosce il segnale di interruzione e si 
ferma. 

Benché l’AmigaDos offra all'utente dei 
mezzi molto potenti non si può definire il 
suo ambiente dei più amichevoli. Fortuna- 
tamente il programmatore può accedere 
ai compiti dell’AmigaDOS modificando al- 
cune funzioni. In effetti ci sono già due 
programmi in grado di addomesticare il 
CLI, questi sono lo SHELL e MyCLI. 

Ad esempio il programma SHELL scritto 
da Randell E. Jesup traduce i vostri sino- 
nimi in comandi AmigaDOS. Basterà inse- 
rire un file “comandi” nella directory SYS:. 
Il file contiene la risistemazione dei coman- 
di CLI. Un solo sinonimo può comprende- 
re un'intera lista di comandi CLI dandovi 
delle notevoli capacità macro. Comunque 
una volta che lo SHELL ha compiuto i suoi 
processi passa i comandi attraverso al CLI: 
essi non sono comandi interni. 

Indubbiamente l'integrazione dell’Ami- 
gaDOS da parte di programmi .di questo 
genere semplifica e sopratutto velocizza 
enormemente il lavoro da eseguire me- 
diante CLI. Un'altro aspetto importante di 
questi programmi è il tipo di editing: nel 
CLI spesso dopo aver scritto una lunga 
sequenza di comandi vi accorgete di aver 
commesso un'errore all’inizio della riga 
(parolaccia!) e quindi siete costretti a can- 
cellare e riscrivere quasi l’intera sequenza. 
L'editor di questi programmi invece si 
comporta quasi come quello di un normale 
wordprocessor con talvolta delle varianti 
molto interessanti. 

Sicuramente nei prossimi numeri assie- 
me al CLI tratteremo parallelamente anche 
i modi di impiego di programmi molto utili 
come ad esempio lo Shell della Metacom- 
co. 
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di Giorgio Dose 


Avete appena scritto un programma in 
Basic sul vostro Amiga e io trovate un po’ 
lento? Volete aumentarne il numero di gi- 
ri? Seguendo le tecniche usate dai com- 
pilatori e spremendo un po’ le vostre me- 
ningi è possibile incrementare considere- 
volmente la velocità di esecuzione. 

Esistono i metodi più svariati per miglio- 
rare un programma e renderlo più veloce 
ed ognuno di noi conosce diversi trucchetti 
per farlo. Quelle che troverete di seguito 
sono delle regole generali che molti già 
conoscono ma che possono tornare utili 
ai programmatori meno esperti. Alla fine 
dell'articolo inoltre sono riportati alcuni pro- 
grammi per valutare i vantaggi che si ot- 
tengono usando queste tecniche. 





Cosa fanno i compilatori 


| vari compilatori C, Fortran, Pascal u- 
sano varie tecniche per diminuire i tempi 
di esecuzione delle loro routine. Molti di 
essi esaminano il codice oggetto e indivi- 
duano dove e come va ottimizzato. Alcuni 
di essi analizzano i passi in cui il program- 
ma impiega molto tempo e le variabili po- 
ste all’interno dei loop, poi decidono con 
” intelligenza” i cambiamenti da apportare 
al programma stesso. Altri compilatori in- 
vece fanno le loro modifiche solo dopo 
aver creato il linguaggio macchina. 

Le tecniche che verranno descritte di 
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seguito possono essere applicate a quasi 
tutti i linguaggi a livello sorgente. 

Il metodo più semplice è conosciuto co- 
me “costant folding”. Il compilatore esa- 
mina tutte le costanti che possono essere 
combinate fra loro in modo da eliminare i 
relativi calcoli durante l'esecuzione. Con- 
siderate la seguente funzione: 


x= 11+2*(x*9/6+y)* 8.6 +4* 5 


dopo che il compilatore ha eseguito la 
trasformazione delle costanti diventerà: 


x= 17.2* (x * 1.5 + y) + 31 


Sono state eliminate due moltiplicazioni, 
una divisione e una addizione ed il tempo 
di esecuzione risulterà notevolmente più 
breve. 

Un altro metodo molto noto è il cosid- 
detto ”code motion” e consiste nel ridurre 
il numero di operazioni matematiche all’in- 





terno di un loop. Il compilatore esamina 
quali espressioni non vengono mai modi- 
ficate all'interno di un loop e quindi porta 
le stesse al di fuori del ciclo in modo da 
evitare la ripetizione dei calcoli. Conside- 
riamo ad esempio il seguente loop: 


FORI = 1 TO 360 STEP 10 
FORJ = OTO 360 STEP 


R=20+W 
K = SIN(1)*SIN(J) + COS(I)* COS(J) 
Z=Z+J4+R 

NEXT J 


NEXT | 


La prima funzione che salta all'occhio 
è ovviamente R = 20 + W; non c’è nulla 
infatti, all’interno del loop, che possa mo- 
dificare il valore di R o di W. Il compila- 
tore allora porta l'espressione fuori da en- 
trambi i cicli FOR-NEXT. 

Osservando il programma con maggio- 
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re attenzione si può notare che anche la 
variabile | rimane costante nell’ambito del 
loop interno e così pure il valore di SIN(() 
e COS(I). E quindi possibile portare anche 
questi due calcoli al di fuori del loop. Il ri- 
sultato ottimizzato sarà quindi: 


R=20+W 

FORI = 1 TO 8360 STEP 10 
X1 = SIN(I) 
X2 = COSII) 


FORJ = 1 TO 360 
K = X1* SIN(J) + X2 * COS(V) 
Z=Z4+J4+R 

NEXT J 

NEXT | 


L'aver portato fuori dal ciclo due fun- 
zioni come SIN e COS incrementa signifi- 
cativamente la velocità di esecuzione del 
programma perché riduce notevolmente il 
numero di calcoli eseguiti. Per ottenere 
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questo miglioramento il compilatore ha do- 
vuto generare due proprie variabili interne 
X1 e X2 e rimpiazzare con esse le funzioni 
SIN(1) e COS(I). Da rilevare che l’operazio- 
ne di cui sopra aumenta le prestazioni ma 
occupa più memoria. 





Veniamo al BASIC 





| metodi visti or ora possono venire ef- 
ficacemente usati nei vostri programmi in 
AmigaBasic. L’AmigaBasic è un linguag- 
gio interpretato e come tale non è in grado 
di ottimizzare da solo i propri programmi; 
siamo noi che dobbiamo decidere come 
e dove intervenire nei vari passi del pro- 
cesso. Per scrivere programmi più veloci 
è bene rispettare queste semplici regole: 

1) Non usare variabili quando è possi- 
bile usare delle costanti. Ogni volta che 


l'interprete Basic esamina una variabile 
deve guardare la sua tabella delle varia- 
bili per trovarne il valore. Questo non ri- 
chiede molto tempo, però se la cosa si ri- 
pete molto spesso la velocità scende ra- 
pidamente. 

2) Non inserire commenti nei loop che 
richiedono molto tempo per essere com- 
pletati. L'esame dei commenti normalmen- 
te non comporta dei ritardi apprezzabili al 
programma ma nei cicli FOR-NEXT au- 
menta senz'altro il tempo di attuazione dei 
loop stessi. Questo non è un invito a non 
inserire mai i commenti ma solo un con- 
siglio a non metterli nei punti più critici. | 
commenti infatti sono molto utili perché 
facilitano la lettura del programma e la sua 
revisione o modifica anche diverso tempo 
dalla stesura ed inoltre consentono ad al- 
tre persone di comprendere meglio il 
funzionamento del programma stesso. 

3) E importante conoscere tutte le fun- 
zioni dell'AmigaBasic; può sembrare una 
cosa ovvia ma è molto facile dimenticarsi 
delle funzioni meno comuni e creare al loro 
posto delle routine meno efficienti. 

4) Evitare le chiamate frequenti alle su- 
broutine. Se ad esempio un programma 
chiama la stessa routine ripetutamente al- 
l'interno di un loop è consigliabile inserire 
il codice della subroutine all’interno del ci- 
clo. Se le subroutine sono più d’una biso- 
gna cercare, se possibile, di fonderle in- 
sieme e crearne una sola. Ogni volta che 
viene chiamata una subroutine infatti |'A- 
migaBasic mantiene traccia del punto in 
cui deve ritornare dopo aver eseguito la 
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ni 
‘Listato 1 FOR x = 1 TO 150 STEP .2 
‘Migliorare la velocita’ dei programmi sl 
” Y Ora disegna la parte sinistra 
‘Esempio di "piotting" ; 
p y = SIN(FNa(x))/(FNal(x)}*+50 
DEF FNa(t) = (100/360*t)/3 PSET (x+150,y)],1 
£ NEXT x 
‘Disegna un punto alla volta e NEXT 3 
‘riporta il tempo impiegato 32$ = TIME$ 
’ RETURN 
CLS QuickPlot: 
BOSUB SlowPlot PRINT "QuickPlot" 
FOR i = 1 TO 10000: NEXT i b1$ = TIMES 
FOR j = 20 TO 100 STEP 20 
CLS FOR x = 1 TO 150 STEP .2 
GOSUB QuickPlot sy = x*.0925926 
FOR i = 1 TO 10000: NEXT i yî = SIM sy) /sy*4+50 
PSET (150-x,y1),1 
CLS PSET (x+150,y1),1 
GOSUB QuickerPlot NEXT x 
NEXT j 
LOCATE 1,1 n 
PRINT "SlowPlot: Begin -- ";a1$;" End - ";a2$ n 
PRINT "QuickPlot: Begin -- ";b1$;" End - ";b2$ 
PRINT "QuickerPlot: Begin -- ";c1$;" End - ";c2$ QuickerPlot: 
e PRINT "QuickerPlot" 
c1$ = TIME$ 
SlowPlot: FOR x = 1 TO 150 STEP .2 
PRINT "SlowPlot" sy = x*.0925926 
a1$ = TIME$ SinTemp = SIM sy)/sy 
FOR j = 20 TO 100 STEP 20 FOR j = 20 TO 100 STEP 20 
FOR x = -150 TO -1 STEP .2 yî = SinTemp*j+50 
' PSET (150-x,y1),1 
o Prima disegna la parte destra _PSET (x+150,y1),1 
” NEXT j 
y = SIN(FNa(x))/(FNa(x)}*j+50 NEXT x 
PSET (x+150,y),1 c2$ = TIME$ 
NEXT x RETURN 

















subroutine. E ripetere questa operazione 
più e più volte aumenta il tempo di effet- 
tuazione del programma. 


Primo programma 





Passiamo ora ad esaminare un program- 
ma esempio e vediamo come sia possibile 
mettere in pratica quanto finora esposto. 

Il listato uno contiene tre semplici routine 
per disegnare cinque volte una funzione ma- 
tematica con diversi valori dei parametri. La 
prima routine chiamata SlowPlot è quella 
originale, è la più lenta (più di due minuti per 
essere portata a termine) e verrà migliorata 
al fine di ridurne il tempo di esecuzione. 

Nella routine SlowPlot si notano imme- 
diatamente i commenti, inseriti all’interno 
dei loop, che vanno eliminati o portati al- 
l'esterno del ciclo, e la funzione FN che 
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può essere tolta e sostituita da una sem- 
plice variabile. 

Osservando poi sullo schermo il dise- 
gno della funzione si rileva che è simme- 
trico rispetto al centro; possiamo quindi 
trarre vantaggio da questa simmetria, uni- 
re i loop interni e disegnare entrambi i lati 
della funzione nello stesso tempo. 

Le variazioni apportate alla routine Slo- 
wPlot si evidenziano nella successiva rou- 
tine QuickPlot. QuickPlot impiega circa 50 
secondi per essere condotta a termine, un 
buon risultato! 

Ma vediamo come si possa ancora mi- 
gliorare... 

Nell’esecuzione del loop più interno del- 
la routine QuickPlot si nota che solo l’e- 
spressione contenente la variabile | pre- 
senta un valore sempre diverso, mentre i 
calcoli con lo stesso valore della variabile 
x vengono ripetuti cinque volte (una per 


ogni diverso valore di j). Invertendo il loop 
interno con quello esterno, per ogni punto 
della funzione disegnato sullo schermo, i 
calcoli, comprendenti la variabile x, ven- 
gono eseguiti una sola volta e non cinque 
volte come avveniva in precedenza. 

Con le ultime variazioni siamo arrivati 
all’ultima routine QuickerPlot che si com- 
pleta in circa 40 secondi. Possiamo ben 
dire di aver fatto un buon lavoro. 

Le tre routine descritte sono state inse- 
rite nel programma una di seguito all’altra 
in modo che si possa facilmente valutare 
il diverso rendimento di ognuna. 





Secondo programma 





La tecnica di ottimizzazione che andia- 
mo a presentare è senzaltro la più efficace 
ma anche la più difficile. Dopo aver com- 
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pletato un programma e aver fatto il pos- 
sibile per aumentare le sue prestazioni, 
facciamo mentalmente un passo indietro 
e chiediamoci: le routine che abbiamo 
scritto sono veramente le migliori o pote- 
vamo fare di meglio? 

E molto difficile dare una risposta e lo è 
ancor di più per i programmatori meno 
esperti. Possiamo fare un piccolo test, non 
per valutare le nostre capacità ma bensì 
per imparare, da un semplice esempio, 
che non sempre la soluzione più logica è 
la migliore, anzi... 

Provate ad esempio a scrivere una rou- 
tine per mescolare un mazzo di carte, sup- 
ponendo di avere un array già inizializzato 
con il nome delle carte e di poter usare 
qualsiasi altra variabile. Avete fatto? Bene, 
potete continuare nella lettura. 

Molti programmatori, in un caso come 
questo, avrebbero scritto una routine molto 
simile alla routine ShuffleA del listato numero 
due. L'idea di base è di creare, oltre a quello 
contenente i nomi delle carte, due nuovi ar- 
ray, uno per mettervi le carte mescolate man 
mano che vengono selezionate ed uno per 
segnare quelle che sono già state prelevate 
(non vogliamo avere duplicati). 

La routine inizialmente pulisce l’array 





‘Listato 2 


, 
è 


’ 


DIM Spot$ (4) 


Spot$(0) =" di cuori" 
Spot$(1) = " di quadri" 
Spot$(2) = " di fiori" 
Spot$(3) = " di picche" 


Main: 
RANDOMIZE TIMER 


* ShuffleA 


PRINT "Shuffling ..." 
81$ = TIME$ 
FOR 8 = 1 TO 10 


RESTORE 

GOSUB Init 

FOR I = 1 TO 52 
Check(I) = 0 

NEXT I 


FOR I = 1 TO 52 
Again: 
X = INT(RND#*52+1) 


Shuffled$(1) = card$(X) 
Check{X) => 1 





‘Migliorare la velocita’ del programma 
Esempio "Come mescolare un mazzo di carte" 


DIM card$(52), Shuffled$(52), Check(52) 


DATA "asso", "due", "tre", "quattro", "cinque", "sei", "sette 
DATA "otto", "nove", "dieci","jack", "donna", "re 


IF (Check{X) = 1) GOTO Again 


Check o meglio lo inizializza completamen- 
te a zero. Poi, all'interno del ciclo FOR- 
NEXT, usa un numero random per sele- 
zionare una carta a caso e controlla che 
la carta non sia già stata estratta guardan- 
do nell'array Check. Se era già stata scelta 
si preleva un'altro numero random finché 
non si trova una carta che ancora non era 
stata toccata; a questo punto si pone que- 
st'ultima nell’array Shuffled. Il ciclo si ripete 
finché tutte le 52 carte sono state selezio- 
nate e poste a caso nell’array. 

Questo può inizialmente sembrare un 
buon algoritmo ma esaminandolo attenta- 
mente si nota che esso potrebbe impie- 
gare molto tempo per estrarre tutte le carte 
del mazzo. Questo perché man mano che 
le carte vengono scelte e posizionate nel 
nuovo array, aumentano le probabilità che 
esca un numero random corrispondente 
ad una carta già mescolata, con conse- 
guente ripetizione del ciclo. 

Per rimediare a questo difetto, se così 
possiamo chiamarlo, è necessario inserire 
nella routine un certo livello di intelligenza 
artificiale. E quanto si ècercato di fare nella 
seconda routine chiamata ShuffleB. Que- 
sta routine usa meno memoria della pre- 
cedente e risulta più veloce nell'esecuzio- 


ne, L’idea consiste nel prelevare, all'inter- 
no di un ciclo FOR-NEXT, un numero ran- 
dom compreso tra uno e 52 e quindi nello 
scambiare di posto, nell’array contenente 
il nome delle carte, la carta corrente (a- 
vente il numero di posizione progressivo 
uguale alla variabile 1 del toop) con quella 
il cui numero corrisponde al numero ran- 
dom. Così facendo vengono sempre pre- 
levati solo 52 numeri random e la routine 
impiega sempre lo stesso tempo per me- 
scolare tutte le carte. 

Per mostrare con maggior evidenza la 
diversa velocità di esecuzione delle due 
routine il programma del listato due inizia- 
lizza e mescola il mazzo di carte per ben 
dieci volte. La routine A impiega da 18 a 
22 secondi per essere portata a termine 
mentre la routine B si completa sempre in 
otto secondi. 

Spero che gli esempi sopra riportati sia- 
no di stimolo a migliorare sempre i propri 
programmi; non fermarsi mai alla prima 
idea che viene in mente ma tentare con- 
tinuamente nuovi e diversi modi di risol- 
vere un problema, può sempre capitare 
di inciampare in una soluzione migliore e 
più veloce. 





NEXT S 
a2$ = TIMES 


PRINT "ShuffleA -- Start: ";a1$;" End ";a2$ 


‘ShuffleB 


e 


b1$ = TIME$ 


RESTDORE 


FOR I= 


nn snom " 


NEXT I 


FORI = 


NEXT I 


NEXT 8 
b2$ = TIMES 


END 


Init: 
X = 1 





READ A$ 
card$(X) 
NEXT I 


NEXT JY 
RETURN 








PRINT "Shuffling ... 


FOR 5 = 1 TO 10 


GOSUB Init 
1 TO 52 
" Check{I) 


1 TO 52 
X = INT(RND#52+1) 
SWAP card$(1I),card$(X) 


PRINT "ShuffleB -- Start: ";b1$;" End ";b2$ 


FOR J= 1 T0 13 
FORI=0 703 


Ka Xt 1 


= 0 


A$+Spot $( 1) 
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Mauro Risani 
I COMANDI DI LOTUS 1-2-3 
REFERENCE GUIDE 


pp. 96 
Cod. 051T 


Lire 12.500 


Un'utile e veloce reference 
concernente tutti i comandi del 
popolare foglio elettronico 
della Lotus, indispensabile per 
consultare velocemente la 
sintesi di un dato comando, di 
una funzione, di una 
procedura macro. 


James Cavuoto / Jesse Berst 


VENTURA 

IL GRANDE MANUALE 

pp.410 Lire 55.000 
Cod, PP593 


Una guida completa ed 
esauriente che si rivolge a 
chiunque voglia imparare a 
usare Ventura Publisher nella 
produzione di riviste, libri, 
manuali, documentazione, 
proposte, modulistica. 





Davide Pandini 
LINGUAGGIO C 
REFERENCE GUIDE 


pp. 116 Lire 12.500 


Cod, R671 


La trattazione delle funzioni 
della libreria standard 
prendendo in considerazione 
lo standard ANSI ma 
riportando comunque le 
differenze di implementazione 
relative al sistema operativo 
UNIX e al “K.&R. standard”, 
indicandole come eccezioni. 








ROBOTICA 


Fondamenti e applicazioni 


MASSIMO CALDA 
VALERIO ALESSANDRONI 


ma 








Amadio Gozzi 

77 SCHEDE PER IL 
RIPARATORE TV 
FUNZIONAMENTO E 
RIPARAZIONE 


pp. 330 
Cod. BE718 


Lire 40.000 


Una vera guida operativa per 
il tecnico TV, in cui viene messa 
a disposizione tutta 
l'esperienza raggiunta dal suo 
autore sia attraverso l’attività 
di laboratorio, sia attraverso 
l'insegnamento tecnico pratico 
effettuato presso il Ceniart 
(Centro per l'Informatica e 
l’Assistenza Radio TV). 






SOFTWARE 
DI BASE 
Strumenti di sviluppo 





TED BIGGERSTAFF 


Robert Krumm 


MS DOS ADVANCED 
IL MANUALE DEL 
PROGRAMMATORE 


pp. 426 
Cod. R600 


Lire 55.000 


Dopo aver chiarito i concetti 
fondamentali del sistema 
operativo su disco (DOS), 
vengono discussi i programmi 
di utility, i più noti programmi 
di potenziamento della 
tastiera e le utility di 
background, fornendo al 
lettore la capacità di ottenere 
il massimo dai suddetti 


‘programmi. 


IL TUO LIBRO 


Per acquisiare libri Jackson rivolgetevi alle migliori librerie e negozi di informatica oppure utilizzate l'apposito tagliando riportato in fondo alla rivista. 








Valerio Alessandroni/Massimo Calda 
ROBOTICA 

FONDAMENTI E 
APPLICAZIONI 


pp. 256 
Cod. GES84 


Lire,38.000 


Un'ampia descrizione del 
mondo dei robot industriali, 
attraverso l'hardware 
(l'aspetto meccanico), il 
software (il linguaggio), le 
periferiche (sensori ed 
attuatori), le modalità di 
selezione ed impiego ed i 
criteri di sicurezza. 


Ted J. Biggerstaff 
SOFTWARE DI BASE 
STRUMENTI DI SVILUPPO 


pp. 392 Lire 52.000 
Cod. GY629 


Un’efficace ed ampia 
spiegazione su come 
modernizzare ed estendere il 
sistema operativo di un 
personal computer IBM o 
compatibile, svelando i segreti 
della programmazione e 
mettendo in grado il lettore di 
sviluppare un nuovo sistema 
operativo molto più potente 
ed attuale. 


GEJ 0063 











— Disco Magazine Forever 


— GIOCHI 

Blackjack 

Labirinto 
— MUSICA 

Music 

Laboratorio del Suono 
— STRUMENTI 

Dirutility 

Lente 
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BasicBoing 
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Astronave 
Guerre stellari 


— WITZ 
Sproing 
Boing 
Ombre 
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Attenzione! Attenzione! Siamo il Fronte Combattente 
del Chip Democratico e dirottiamo questa astronave 
sul pianeta Disco Magazine II 


di Alessandro Prandi 


Mi trovavo alla guida della Trans-I- 
stor, astronave di raffinata tecnologia 
appartenente alla flotta multigalattica 
MBI, nell'anno terrestre 1988, quando 


sul diario di bordo dovetti annotare î 


seguenti avvenimenti. 

Fase solare: 4. Distanza dal pianeta 
Centrale: leghe MBI 150. Presunto ar- 
rivo: fase solare 6. 

Ormai poco meno di due fasi solari 
separavano me e i passeggeri della 
Trans-Istor da un meritato riposo nelle 
lussuose sale messe a disposizione dal- 
la MBI a tutti i clienti e equipaggi delle 
sue linee interplanetarie. 

Fase solare: 5. Distanza dal pianeta 
Centrale: leghe MBI 60. Presun.... 

A questo punto irruppe nella cabina 
di comando un gruppo di tre umanoidi 
e un replicante, i quali senza troppi 
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complimenti, mi comunicarono un 
messaggio da annunciare ai passegge- 
ri. Con un disintegratore atomico pun- 
tato alla gola lessi le seguenti parole: 
" Attenzione! Attenzione! Siamo il Fron- 
te Combattente del Chip Democratico 
e dirottiamo questa astronave sul pia- 
neta Disco Magazine IL" 

Da quel tempo sono passate innu- 
merevoli fasi solari e, sinceramente, 
debbo dire che nè io nè i miei passeg- 
geri d'allora invidiamo le piatte forme 
di vita del pianeta Centrale. Le gior- 
nate su Disco Magazine II trascorrono 
meravigliosamente e ogni tanto ricor- 
diamo con gioia che fortunatamente 
nessun riscatto è stato pagato per il 
nostro ritorno. 


Città di Amiga, anno 5034 


Storie come questa ormai non fanno 
più notizia da quando l’Amiga è entrato 
nelle nostre case, La sua capacità di 
acquisire proseliti ovunque è ben nota 
anche ai più disinteressati. Avremmo 
potuto stupirvi con effetti speciali, in- 
vece la realtà ci ha imposto una scelta 
obbligata ed insostituibile nel guidarvi 
alla conoscenza completa dell'univer- 
so Amiga. Questa scelta è stata fatta! 
Amiga Magazine è nata e cresce di 
giorno in giorno, a testimoniare che 
chiunque si dedichi a questa macchina 
con convinzione e professionalità vie- 
ne largamente ricompensato. 

Solo un anno fa, lo scetticismo nei 
confronti di questo prezioso ed inimi- 


tabile mezzo regnava in molti di voi, 
mentre oggi sicuramente rimpiangete 
il tempo sprecato nell'esitazione. Le 
fonti da cui attingere informazioni e 
programmi su Amiga sono ormai pra- 
ticamente innumerevoli e sopratutto i 
nesauribili, e ciascuna nel profondo 
nasconde un vaso di Pandora. Il nostro 
obiettivo, non lo nascondiamo, è quello 
di diventare la vostra fonte principale, 
ma soprattutto di essere il tramite della 
vostra conoscenza, in modo da poterla 
trasmettere a tutto il mondo Amiga. 

Non ci riteniamo santoni o profeti o 
presentatori alla “vù cumprà”, ma 
semplicemente, gente che come voi 
condivide le gioie (molte) e le pene 
(poche) dell'evento Amiga. 

L'astronave atterrò su Disco Maga- 
zine II e da quel momento divenimmo 
testimoni oculari di un meraviglioso u- 
niverso!! 

La struttura del disco si snoda nella 
praticissima configurazione ad albero 
e vi offre sei directory principali nelle 
quali troverete i programmi relativi a 
ciascun argomento. Le directory sono: 


Witz 
Giochi 
Musica 
Grafica 
Strumenti 
Magazine 


Dopo aver sperimentato con succes- 
so nel primo numero questo tipo di ge- 
stione del dischetto, siamo dunque 
giunti alla conclusione di aver imboc- 
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cato la strada giusta e più facilmente 
percorribile. 

Witz è la directory delle sorprese e 
delle curiosità, in essa troverete ogni 
volta dei simpatici programmi che fa- 
ranno divertire voi e il vostro compu- 
ter. Assieme al programmi eseguibili 
troverete sempre i listati sorgente, in 
modo da stimolare chi di voi volesse 
apportare delle modifiche o migliora- 
menti. Naturalmente questa directory 
non racchiuderà mai dei listati di ir- 
raggiungibile levatura tecnica, ma co- 
munque vi fornirà interessanti spunti 
su cui riflettere. 

Passiamo ora al piatto più ghiotto per 
gli Amiga-player. Nella directory dei 
Giochi potrete misurare il vostro grado 
di abilità, perseveranza, e, talvolta di 
sola fortuna. Per gli Amigomani più in- 
calliti promettiamo fin d'ora una rotta 
costellata di arcade, adventure e chi 
più ne ha più ne metta. Nell’immediato 
prossimo futuro, infatti, inseriremo in 
questa parte del disco delle chicche 
di pregevole valore. Lasciateci solo il 
tempo di confezionarle in modo che 
siano degne di voi. 

Musica è la directory dedicata a 
quelli che credono di poter ancora im- 
parare qualcosa dal Direttore d'orche- 
stra Amiga. Naturalmente sono ben ac- 
cetti anche i rock fans. 

Ed ecco qualcosa che forse vi coin- 
volgerà all'unisono, la Grafica!! A que- 
sto lato così seducente della persona- 
lità Amiga, dedichiamo il massimo spa- 
zio consentitoci. In questo numero vi 
sarà possibile, oltre al vari programi, 
ammirare dei suggestivi “schizzi” e- 
spressi con il programma De Luxe 
Paint. 

Se qualcuno di voi ha già avuto la 
fortuna di conoscerci, avrà sicuramen- 
te apprezzato la directory Strumenti, 
dedicata alle varie utility necessarie 
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nel lavoro quotidiano con Amiga. La 
ricerca in questo campo è veramente 
vasta, ma il reperimento di programmi 
apprezzabili è tutt'altro che facile, co- 
munque, siamo convinti di potervi ser- 
vire ora ed in futuro solo il meglio. 

L'ultima, e forse per i più svogliati, 
anche la più attesa, è la directory Ma- 
gazine, Qui troverete tutti i listati, (FUN- 
ZIONANTI!), contenuti nella rivista. 
Per darvi maggior sicurezza e per e- 
vitare che il vostro lavoro venga reso 
vano da uno stupido, ma ahimè possi- 
bile, errore nella fase di stampa dei li- 
stati, abbiamo pensato di accludere i 
programmi contenuti nella rivista, nel 
relativo dischetto. 

Convenzioni presenti e future, Sì, an- 
che noi vogliamo e dobbiamo segna- 
larvi alcune regole da seguire per una 
migliore comprensione del contenuto 
del dischetto, Analizzando le varie di- 
rectory e sottodirectory da CLI note- 
rete che alcuni file comprendono delle 
estensioni che, a seconda del diversi 
linguaggi, riguardano i relativi file sor- 
gente, Se il nome di un programma non 
comprende alcuna estensione, vorrà 
dire che esso è direttamente esegui 
bile, basterà digitarne il nome, prece- 
duto eventualmente dal percorso (dri- 
ve/directory...). I file contenenti l'e- 
stensione ”.info” sono necessari al si 
stema operativo per raffigurare le va- 
rie icone quando si adopera il Wor- 
kbench. Illustrati. questi concetti, 
passiamo ora ad un esame più detta- 
gliato delle varie estensioni che potre- 
te incontrare nei dischetti di Amiga 
Magazine. 


«bas. sorgente in Basic 

.C sorgente in C 

.h sorgente header in C 

«asm sorgente in Assembler 

«def sorgente modulo definizione in Modula-2 

«mod sorgente modulo implementazione in 
Modula-2 

Ri sorgente Forth 

.scr sorgente screen Forth 

‘0 file oggetto non linkato 

.0bj file oggetto non linkato 

.Isp sorgente in Lisp 


Le estensioni appena elencate ov- 
viamente sono quelle che noi pensia- 
mo di adoperare più frequentemente, 
per cui nel caso dovessimo offrirvi dei 
programmi di diversi linguaggi da 
quelli appena detti, sarà nostra pre- 
mura informarvi delle relative varia- 
zioni. 

Un'altra considerazione di primaria 
importanza riguarda quei programmi 


che, una volta caricati, occupano l'a- 
rea di memoria chiamata CHIP ME- 
MORY (primi 512 K). Nel caso il vostro 
Amiga possieda delle espansioni che 
ne incrementano la memoria, dovrete 
selezionare l'icona NOFASTMEM che 
si trova nella directory SYSTEM del 
disco Workbench; dopo tale operazio- 
ne i programmi suddetti risulteranno 
perfettamente funzionanti. 


Witz 

Fantasia, ironia e genialità sono le 
tre componenti di questo piccolo ma 
simpatico angolo di svago. Palline co- 
lorate invaderanno il vostro schermo e 
ombre minacciose si rifletteranno sul 
vostro Workbench. I due programmi 
Sproing e Boing, una volta lanciati, fa- 
ranno rimbalzare davanti ai vostri oc- 
chi delle palline bianco-rosse. Notere- 
te che contemporaneamente alla loro 
comparsa viene visualizzata una mini- 
finestra, per interromperne l’esecuzio- 
ne basterà portarsi nel gadget sinistro 
e premere il tasto sinistro del mouse. 
Per quanto riguarda il listato sorgente 
in C di Boing dovete tener presente 
che esso e studiato per il compilatore 
Atzec e che quindi lavora su 16 bit, 
essendo sicuri della vostra profonda 
conoscenza in materia vi lasciamo la 
libertà di apportare le modifiche ne- 
cessarie per la conversione in un file 
sorgente che possa essere compilato 
dal Lattice. Ricordate che Sproing 
NON può essere lanciato da CLI! Om- 
bre è invece un programma d'effetto 
nel vero senso della parola. Il pro- 
gramma, eseguibile anche da CLI, dà 
un ombra a tutte le finestre presenti 
sullo schermo, dandovi così l'illusione 
di lavorare in un ambiente tridimen- 
sionale. Nella finestra aperta dal pro- 
gramma trovate due indicatori regola- 
bili tramite mouse, uno controlla l’in- 
tensità dell'ombra mentre l’altro rego- 
la la distanza dalla luce, Anche qui per 
interrompere l'esecuzione dovete por- 
tarvi sul gadget sinistro della finestra 
e premete il tasto del mouse. Purtrop- 
po non possiamo fornirvi i listati dei 
programmi Sproing e Ombre come 
promesso. Se non vi è troppo difficile, 
provate a perdonarci. 

<<Non donar loro nulla. Piuttosto to- 
gli loro qualche cosa od aiutali a por- 
tarla; ciò recherà ad essì qualche 
sollievo...>>. 

F. NIETZCHE 
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Giochi 


Blackjack e Labirinto sono i giochi 
con i quali vi misurerete questo mese. 
Il gioco d'azzardo è dunquè arrivato 
anche nel vostro Amiga. Con Blackja- 
ck vi sembrerà di vivere le emozioni 
dei cow-boy americani quando sfidano 
le slotmachine dei casinò di Las Ve- 
gas. Il gioco, dopo la schermata inizia- 
le mescola le carte e ne dà due a voi 
e due al computer, la seconda carta 
del computer è coperta, a questo pun- 
to dovete cercare di arrivare a 21. Do- 
po avervi fornito le prime due carte un 
messaggio vi indicherà il punteggio, 
(un 5 e un 8 daranno 13 e così via); a 
seconda di questo punteggio potrete 
richiedere ancora delle carte. Ovvia- 
mente se la somma dà un numero mag- 
giore di 21 avete perso. Se siete sod- 
disfatti della smazzata potete clickare 
con il tasto sinistro del mouse la parola 
Resta, se invece desiderate ricevere 
ancora una carta dovete selezionare 
Vai, Sotto Vai e Resta trovate scritto ‘x 
2° questo significa che potete raddop- 
piare la posta in gioco. Oltre alle o- 
pzioni illustrate fin qui c'è anche un 
menu a discesa selezionabile con il ta- 
sto destro del mouse. A sinistra trovia- 
mo l'Esci che vi porterà fuori dal pro- 
gramma, Opzione dedicata ai più per- 
fidi è quella di Truffa. Clickando su 
Truffa si aprirà una finestra sopra la 
scritta Vai e qui, spregevoli bari, po- 
trete leggere il punteggio del compu- 
ter a carte coperte. L'ultimo menu vi 
permette invece di gonfiare il vostro 
portafoglio che inizialmente è di 300 
Dollari, selezionando Totale nel menu 
Cambio potrete arrivare fino ad un bot- 
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Menu di Disk 
Magazine 2 


tino di 5000 $. Scegliendo invece Pun- 
tata potete incrementare il piatto sino 
a 500 $ per smazzata. Ricordate che le 
figure come Jack, Donna e Re valgono 
10 mentre il valore dell’Asso dipen- 
derà dal suo abbinamento con una o 
l'altra carta, infattil'asso può valere sia 
uno che undici, per esempio A e K 
valgono 21, mentre 6 e A fanno 7. Il 
croupier, come è ovvio, lo fa il com- 
puter pertanto in caso di parità vince 
il banco ovvero il vostro incallito Ami 
ga. Ora che sapete tutto sul Blackjack 
potete iniziare la sfida, ma attenti, i vo- 
stri drive potrebbero impazzire e re- 
galarvi un fiume di denaro!! 

Labirinto è invece un gioco che met- 
terà a dura prova i vostri nervi. Anche 
questo come Blackjack è scritto in Ba- 
sic ma le sue dimensioni sono notevol- 
mente inferiori, Quando inizia l’esecu- 


zione il programma crea un labirinto 
con l'accompagnamento di sinistri ru- 
mori. Una volta terminato il disegno un 
punto giallo comparirà sulla sinistra, 
vicino alla porta d'entrata del Labirin- 
to. Sul lato destro noterete una porta 
analoga che invece è l'uscita. Fin qui 
niente di speciale direte voi? Esatto fin 
qui niente di speciale, ma provate ora 
a gestire il puntino giallo con i tasti 
cursore e provate a farlo percorrere 
il sentiero giusto per la via dell'uscita. 
Provato? Si? Allora avete già capito 
che non dovete far toccare alcuna pa- 
rete del labirinto a quel maledetto pun- 
tino. Se non riuscite a percorrere que- 
sto intricato groviglio di dedali potete 
sempre munirvi di un filo d'Arianna e 
riprovarci. Buon divertimento!! 


Musica 


Due sono le fantasie musicali di que- 
sto mese. Music è un breve program- 
mino basic che trasformerà la tastiera 
del vostro Amiga in un potente sinte- 
tizzatore. Munitevi di carta e penna e 
iniziate a provare le varie combinazio- 
nì possibili, infatti non alleghiamo al- 
cun commento al programma perché 
vogliamo lasciare al vostro genio mu- 
sicale la straordinaria sensazione della 
composizione. 

Interessante e molto più complesso 
si può definire invece Laboratorio del 
Suono, anche se in Basic questo pro- 
gramma offre apprezzevoli modi di ge- 
stione del suono su Amiga. Nella 
schermata principale troviamo un ric- 
co menu che ci offre le varie possibi- 
lità di elaborazione del suono. Nella 
parte centrale dello schermo appare 
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la scritta relativa all'uso della stampan- 
te, per il momento fate finta di non ve- 
derla. A destra notate un riquadro con 
la scritta “USATE LE OPZIONI O PRE- 
METE QUI”, per Opzioni si intendono 
le possibilità di accendere o spegnere 
(ON-OFF) dei precisi strumenti di con- 
trollo del suono. Con l'opzione Atti- 
v/Onda potete creare il tipo di onda 
sonora che più vi aggrada. Premendo 
il tasto del mouse quando il cursore si 
trova sull’ON di questa opzione si pas- 
sa ad un altro schermo completamente 
dedicato alla costruzione della forma 
d'onda. Ora davanti a voi avete due 
rettangoli colorati sulla sinistra e delle 
istruzioni sulla destra. Per capire me- 
glio come funziona questa parte del 
programma premete il tasto HELP. 
L'aiuto che troverete conterrà le se- 
guenti note: 


| due rettangoli colorati alla vostra sinistra sono 
un palette per il disegno della forma d'onda. 
L’onda si ottiene tenendo premuto il tasto 
sinistro del mouse e usando lo stesso per 
disegnarla. Se effettuate questo processo 
lentamente i punti verranno visualizzati più 
vicini l’uno all’altro e otterete così una 
rappresentazione di maggiore precisione. 
Ricordate che l’onda è disegnata di lato e che il 
rettangolo rosso ne è la parte inferiore. 

Questo programma è dotato di un 
dimensionatore automatico d'onda. Se l'onda 
da voi creata è inferiore ai 255 elementi potete 
ottenerne il dimensionamento fino al suddetto 
valore. Premendo F1 e scrivendo un numero tra 
-128 e 127 e premendo Return’ otterrete il 
dimensionamento automatico. 

Quando avete creato la vostra forma d'onda 
potete ritornare alla schermata principale e 
scegliere l'opzione Ascesa/Discesa. | suoni 
creati useranno quindi l'onda da voi stabilita. 
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Per ritornare alla forma di partenza spegnete 
(OFF) Attiv/Onda nello schermo principale. 
Ricordate che se decidete di generare piu’ 
forme d’onda sulla stessa riga solo l’ultima sarà 
funzionante. Click mouse 2 volte per proseguire. 


Passiamo dunque all’opzione Asce- 
sa/Discesa. Selezionando l’ON passe- 
remo ad una schermata interamente 
dedicata alle routine di frequenza del 
suono. Per prima cosa leggete atten- 
tamente i messaggi contenuti nella 
parte inferiore destra dello schermo. 
Anzi, per vostra comodità ve ne pub- 
blichiamo i punti principali. 


Premi ’ESC'per resettare a 0 le frequenze 
Usate F1 per vedere il vostro sottoprogramma. 
Questa funzione và adoperata solo prima di 
provare il suono, ma dopo aver selezionato le 
frequenze 

F2 riporta i valori del sottoprogramma a zero e 





lo cancella 

F3 stampa il sottoprogramma. Siate ben sicuri 
di aver collegato la stampante e soprattutto che 
sia accesa 

F4 Alterna la subroutine con un altra contenuta 
nel programma. 


A questo punto premete due volte 
di seguito il tasto sinistro del mouse. 
Quattro indicatori di frequenza com- 
pariranno nella parte superiore dello 
schermo. Due per il primo canale e 
due per il secondo. Sulla destra potete 
notare le scritte: 


FREQI1IL 
FREQ1H 
FREQ2L 
FREQ2H 


Dove per 'H' (High) sì intende alto e 
per 'L' (Low) basso. Potete spostare 
questi indicatori lungo le rispettive ri- 
ghe e nella parte inferiore sinistra ve- 
ranno aggiornati numericamente i ri- 
spettivi valori di frequenza. Tenete 
presente che le basse frequenze (Lì) 
non possono essere uguali o superiori 
alle alte (H). Dopo aver posizionato ì 
vari indicatori potete vedere la su- 
broutine che li gestisce premendo FI. 
Per ascoltare le caratteristiche del 
suono premete il tasto del mouse su 
"Ascolta suono’. Per ritornare alla 
schermata principale selezionate 'Me- 
nu P' (Menu Principale). 

E ora vediamo assieme la schermata 
principale. Ricordate il messaggio re- 
lativo alla stampante? Bene, se l'avete, 
accendetela e clickate l'opzione stam- 
pa. Adesso premete il tasto sinistro del 
mouse posizionandovi nel riquadro 'U- 
SATE LE OPZIONI ...’, nella parte alta 
dello schermo compare il messaggio: 
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SELEZIONATE | SUONI E QUINDI LA 
CASELLA RELATIVA IN BASSO 


Nella parte alta sinistra dello scher- 
mo notate degli indicatori relativi al 
Suono, Frequenza, Tempo, Volume e 
Voce. Iniziate con il selezionare il nu- 
mero di suoni desiderato e noterete 
che nella casella relativa a questi, nel- 
la parte inferiore del vostro monitor, ne 
viene riportato il valore numerico. Una 
volta deciso, clickate sulla scritta Suo- 
no nella relativa casella. La seconda 
selezione riguarda la Frequenza e si 
effettua nello stesso modo adoperato 
per i Suoni. Procedete fino alla Voce 
come appena illustrato. Se per caso 
volete riportare a zero il valore dì qual- 
cuna di queste componenti dovete 
premere Il tasto sinistro del mouse es- 
sendovi pero' precedentemente posì- 
zionati sul rettangolino viola che si tro- 
va sotto a ciascuna casella. Vediamo 
assieme l'aiuto interno del program- 
ma. 


Gran parte di questo programma può essere 
controllato per mezzo del mouse. Spostate gli 
indicatori tenendo premuto il tasto sinistro e 
quindi clickate la casella corrispondente per 
settare i valori. Per resettare a 0 i valori 
posizionatevi nei piccoli box viola sotto i vari 
Suono, Freq eccetera e premete il tasto del 
mouse. Le opzioni sulla destra vengono 
adoperate spostando il mouse e tenendone 
premuto il tasto sinistro. 

Solo l’opzione MODO CORDA viene usata dallo 
schermo principale. 


Sperando di essere stati sufficiente- 
mente esaurienti vi lasciamo alle vo- 
stre elucubrazioni sonore. 


<<Ed egli intuonò una melodia orribile e tetra, 
che risuonava ai miei orecchi come un lugubre 
corno! 

Oh cantore assassino, strumento della 
malvagità, innocente tra gli innocenti; già 
m'accingevo alla più bella tra le danze: quando 
tu coi tuoi suoni uccidesti il mio rapimento!>>. 

F. NIETZSCHE 


Grafica 


Colori, colori, colori! Con Palette ab- 
biamo voluto fornirvi un utile strumento 
di lavoro da usare da solo o come su- 
broutine nei vostri programmi. Nell’ul- 
timo caso basteranno alcune semplici 
modifiche. Il punto più interessante di 
Palette è quello di essere in grado di 
fornire il numero esadecimale del co- 
lore selezionato, in modo da permet- 
tervi l'uso diretto dei valori numerici 
nei vostri listati. Per uscire dal pro- 
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gramma selezionate Cancel e premete 
il tasto sinistro del mouse. 

BasicBoing è invece un programma 
in AmigaBasic che presenta un modo 
d'animazione un po' particolare ma si- 
curamente efficace. Per prima cosa il 
programma disegna un cubo e quindi 
calcola le differenti posizioni nelle 
quali farlo apparire. Una volta calco- 
late tutte le posizioni (quaranta), le im- 
magini del cubo vengono scambiate 
velocemente l’una con l’altra, offrendo 
così un effetto animato. 

Se ancora non siete soddisfatti e se 
vi considerate dei critici d'arte eccovi 
delle tele di gran pregio. Nella finestra 
dedicata alla grafica notate un icona 
con il nome SeeILBM. Questo pro- 
gramma serve alla visualizzazione dei 
disegni creati con De Luxe Paint in mo- 
do InterLace. Per visualizzare le im- 
magini Astronave e Guerre_ Stellari 
dovete dapprima selezionare l’icona 
SeeILBM, quindi portarvi sull’icona 
del disegno e premere due volte Il ta- 
sto sinistro del mouse assieme allo SHI- 
FT. Dopo aver ammirato le pregevoli 
tele di questa galleria potete ritornare 
al Workbench posizionando il cursore 
nell'angolo alto sinistro dello schermo 
e premendo Il tasto del mouse. 

Ai possessori del programma De Lu- 
xe Paint segnaliamo inoltre, che i sud- 
detti disegni possono, ovviamente, es- 
sere caricati anche con quest'ultimo. 
E, dulcis in fundo, eccovi un regalo, 
nascosta chissà dove nel dischetto c’è 
un'avvenente signorina che sarà lieta 
di fare la vostra conoscenza. 


<<Troppo m’addentrai nell’avvenire: fui colto 
da un brivido d’orrore. 

E quando mi guardai intorno, vidi che il 
tempo era il mio solo contemporaneo. 

Allora volai a ritroso, verso la patria, 
rapidamente: così venni a voi, esseri del 
presente, ...>. 

<<Ma come ciò m'accadde? Grande era la 
mia angoscia, e pur fui costretto a ridere! Non 
mai ancora il mio occhio aveva veduto cosa 
tanto variopinta e bizzarra! 

lo rideva e rideva, mentre il mio piede ancor 
tremava e palpitava il mio cuore; “ma questa è 
la patria di tutti i vasi di colore” — dissi a me 
stesso>>. 

F. NIETZCHE 


Strumenti 


Ed eccoci arrivati nel campo delle 
Utility che sicuramente vi aiuteranno 
nel vostro rapporto quotidiano con A- 
miga. DIRUTILITY è il programma che 
fa sicuramente al caso vostro. Quante 





volte vi siete ritrovati a riorganizzare il 
vostro archivio su disco e avete dovuto 
rinunciarvi, o perlomeno sospenderlo, 
a causa della lunga e noiosa scrittura 
diinterminabili righe di comandi CLI?? 
Abbiamo pensato di farvi un favore nel 
proporvi questo comodo strumento di 
lavoro che vi faciliterà enormemente 
nella manipolazione dei dischetti. 


Istruzioni 


Prima di poter iniziare un qualsiasi 
processo, selezionate il file o la dire- 
ctory nella finestra che appare sulla 
sinistra dello schermo. Per prendere 
dimestichezza con il programma vi 
consigliamo di adoperare una copia di 
qualunque dischetto di lavoro. Per e- 
seguire un qualsiasi comando dovete 
quindi clickare uno dei numerosi ga- 
dget che appaiono sulla destra. Nella 
parte inferiore della finestra trovate 
tre righe riservate alle varie stringhe 
di commento. Esse sono: 

S: La directory corrente. Qui potete 
inserire un qualsiasi path (percorso) 
per arrivare al file o alla directory che 
vi interessa, ma normalmente non si 
usa in quanto tutte queste operazioni 
sono possibili usando il mouse nella fi- 
nestra delle directory. 

D: Il gadget di destinazione. Questo 
spazio è riservato per comunicare le 
directory di destinazione e viene ado- 
perato anche per creare nuove dire- 
ctory. 

Terza riga: Qui viene comunicato lo 
stato della finestra. Descrizione degli 
errori e relativo numero dell'errore 
nel DOS. Non provate ad inserire del 
testo in questa riga in quanto è impos- 
sibile, perlomeno in questo mondo. 

DFO: DF1: DF2: RAM: HD0: —> 

Setta la directory corrente al root 
della device selezionata. 


ALL > 

Seleziona tutti i file della directory 
corrente, compresi quelli non visibili 
nella finestra. 


CLEAR —> 
Annulla la selezione di tuttii file pre- 
selezionati, 


COPY > 

Copia i file selezionati nella dire- 
ctory visualizzata nella riga di com- 
mento D. Ricordate? Qui non potete 
inserire nomi di file ma solo path di di- 
rectory già esistenti. Sarete in grado di 
inserire i path relativi alla directory 
corrente. 
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DELETE —> 
Cancella i file selezionati. Non can- 
cella le directory. 


RENAME —> 

Scambia il nome al primo file sele- 
zionato, o directory, con il nome o path 
(nella stessa device) che si trova nella 
riga D. 


GETDIR > 

Se volete passare ad una nuova di- 
rectory, selezionatela nella finestra 
sulla sinistra e quindi clickate questo 
gadget. Non usate questo comando 
per una directory che già è scritta nel- 
la prima riga di commento S:!! Se la 
dovete scrivere premete Return quan- 
do siete dentro la riga di commento, 
da quel momento quella sarà la nuova 
directory corrente. 


MAKEDIR —> 

Questo comando crea la directory 
descritta nella seconda riga di com- 
mento (D:), ovviamente potete usare i 
path necessari. 


DELETEDIR > 

Questo comando cancella le dire- 
ctory vuote selezionate, se tentate di 
cancellare una directory con un qual- 
che contenuto vi comparirà un mes- 
saggio di errore. 


PARENT > 
Và alla parent directory. 


ROOT 
Si porta al root della device corren- 
te. 


TYPE > 

Potete usare questo gadget per leg- 
gere | vari file in formato ASCII. Sele- 
zionate i file che vi interessano e quindi 
clickate TYPE, Una nuova finestra vie- 
ne aperta con il nome del file da voi 
scelto. Per avanzare diuna pagina pre- 
mete la barra spaziatrice, per far scrol- 
lare lo schermo di una sola riga pre- 
mete Return mentre per portarvi alla 
fine del file usate il tasto ESC, Se avete 
selezionato più di un file il prossimo 
verrà automaticamente visualizzato. 
Dopo aver letto tutti i file prescelti que- 
sta finestra viene chiusa e si ritorna alla 
schermata iniziale. 


SINFO —> 

Viene usato per vedere il numero di 
byte disponibili del device apparte- 
nente alla directory corrente (Sì). 


DINFO —> 
Viene usato per vedere il numero di 
byte disponibili del device apparte- 
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nente alla directory di destinazione 
(DI. 


PRINT —> 

Funziona allo stesso modo di TYPE 
solo che l'output è indirizzato alla stam- 
pante. 


SWAP > 
Si usa per scambiare il contenuto di 
S con D. 


BYTE > 

Somma i byte dei file selezionati e 
visualizza il risultato ed il numero dei 
file. 


EXEC —> 

Esegue i file selezionati dall'interno 
di DirUtility. Se DirUtility è stato chia- 
mato da CLI allora tutti gli output del 
programma saranno diretti al CLI ri- 
chiamato. 


SHOWILBM —> 

Per rendere esecutivo questo ga- 
dget dovete possedere un qualsiasi 
programma in grado di visualizzare 
delle immagini, (vedi SeeILBM nella 
directory Grafica) e depositarlo nel di- 
schetto che vi interessa, a questo punto 
DirUtility prova a copiare un comando 
di SHOW nella ram disk da SYS:C e 
quindi lo protegge, per evitare delle 
cancellazioni accidentali. A questo 
punto verrà dato l'execute per la vi- 
sualizzazione dei file selezionati. Per 
passare da un'immagine all'altra ba- 
sterà posizionarsi nell'angolo alto sini- 
stro dello schermo e premere il tasto 
del mouse. Se SYS:C/SHOW non esi- 
ste il gadget SHOW rimane inutilizza- 
bile. 


NOTE AGGIUNTIVE 

Se per caso avete selezionato tutti i 
file e quindi avete dato il DELETE e vi 
accorgete di aver commesso un'enor- 
me sciocchezza, potete interrompere 
il processo clickando all'interno della 
finestra di visualizzazione della dire- 
ctory. 

Inomaggio vi offriamo una simpatica 
lente di ingrandimento che vi farà sen- 
tire alla stregua del famoso Sherlock 
Holmes. Caricando il programma 
‘Lente’ potrete esaminare minuziosa- 
mente i dettagli più nascosti delle fi- 
nestre della schermata Workbench. 


La finestra del programma può essere. 


dimensionata a piacimento e sulla par- 
te destra, ci sono dei gadget. Posizio- 
natevi con il mouse sotto i gadget di 
sfogliamento delle finestre e premete 
ripetutamente il tasto sinistro del mou- 
se e noterete che i dettagli dello scher 


mo Workbench racchiusi nella finestra 
ingrandiscono ad ogni click. Per ritor- 
nare alla situazione iniziale posizionate 
il cursore un po' più su del gadget di 
dimensionamento e premete ripetuta- 
mente il tasto selezione del mouse. 
Certamente non è un programma di 
grande utilità ma può essere piacevole 
passare qualche minuto da segugi alla 
ricerca di indizi nelle varie finestre a- 
perte con il Workbench, Se trovate 
qualcosa di interessante vi preghiamo 
di comunicarcelo al più presto. 


Magazine 


Il nostro viaggio si sta concludendo 
ma prima di lasciarci vogliamo spen- 
dere ancora qualche commento sulla 
parte Magazine. Quelli che già ci co- 
noscono certamente saranno già anda- 
ti a curiosare all'interno per trovare i 
programmi contenuti nella rivista, E 
sì?? È proprio così, in Magazine trove- 
rete tutti i listati sorgente riguardanti i 
vari articoli della rivista. Comunque, 
cari pigroni, siamo ben lieti di tenere 
tutta per noi la fatica della trascrizione, 
poiché vogliamo darvi il massimo e 
con il minimo sforzo, da parte vostra. 


La separazione 


Dopo questo viaggio all’interno di 
questa giungla di programmi ci sentia- 
mo veramente stanchi, ma voi che in- 
vece avete ancora tutto il tempo per 
goderveli non esitate e spendete qual- 
che ora con il vostro Amiga per fargli 
conoscere tutti i più nascosti meandri 
di questo dischetto, vedrete che saprà 
ricompensarvi adeguatamente. 

Un celebre personaggio, non molto 
amato, diceva: ” Chi si ferma è per- 
duto! ” Noi siamo ben distanti da quel- 
la persona ma ammettiamo che non 
siamo minimamente disposti a fermar- 
ci. Il numero tre di Amiga Magazine è 
già in cantiere, abbiate solo un po' di 
pazienza!! 


<<eE per cagion sua e dei suoi pari io devo dar 
compimento a me stesso: perciò ora fuggo la 
felicità e mi offro volentieri alla sventura — 
perché sia questa la mia ultima prova e l’ultima 
mia esperienza. 

E in vero, era tempo che io me ne andassi; e 
l'ombra del viandante e il più lungo dei momenti 
e l’ora più silenziosa mi dicevan concordi: ” è 
proprio tempo! ”’. 

F. Nietzsche 
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UNDICI STRUMENTI 
PREZIOSI 

PER UN RAPIDO 
ACCESSO ALLA 
CONOSCENZA 


BIOLOGIA 
Cod. DS529 pp. 416 L. 14.000 


Le varie branche della Biologia 


(botanica, zoologia, biochimica, . 


fisiologia, immunologia e gene- 
tica) sono i temi di quest'opera 
che rivolge particolare attenzio- 
ne anche ai più recenti risultati 
della biologia molecolare. Sono 
inoltre trattati anche i concetti 
delle discipline biomediche, 
quali patologia, istologia. farma- 
cologia, microbiologia. 


INFORMATICA 
Cod. DS531 pp. 288 L. 14.000 


Un acronimo di difficile com- 
prensione, 1 più recenti traguar- 
di raggiunti dall'Intelligenza Arti- 
ficiale, la struttura di un perso- 
nal computer. Domande ricor- 
renti per chi vuole conoscere 
una disciplina giovane che, nello 
spazio di pochi anni, ha cambia- 
to il modo di produrre il nostro 
lavoro. 


CHIMICA 
Cod. DS526 pp. 304 L. 14.000 


Quante volte ci siamo trovati 
nella necessità non solo di veri- 
ficare una formula complessa, 
ma anche di conoscere un con- 
cetto di chimica generale, inor- 
ganica, analitica inquadrato in 
un contesto scientifico più am- 
pio? Questo dizionario ti aiuterà 
passo a passo nella conoscenza 
della Chimica. 


FISICA 
Cod. DS498 pp. 272 L. 14.000 


A molti sono forse noti gli 
straordinari risultati delle mo- 
derne ricerche della fisica nu- 
cleare e di quella delle particelle. 
Ma non altrettanto noti sono 
probabilmente i concetti di base 
della fisica moderna che hanno 
permesso di raggiungere questi 
importanti traguardi. }l diziona- 
rio di Fisica ti aiutera a cono- 
scerli. 


MATEMATICA 
Cod. DS499 pp. 296 L. 14.000 


Il dizionario di Matematica aiute- 
rà non solo a chiarire e rinfre- 
scare concetti magari già noti, 
ma anche a conoscere i pro- 
gressi di questa materia che, 
certamente pari a quelli di altre 
discipline e non solo di carattere 
teorico, stanno assumendo 
un'importanza crescente nei più 
svariati settori applicativi. 


“ dizionari —— 
enciclopedici 


MECCANICA 
Cod. DS530 pp. 240 L. 14.000 


Funzionamento dei meccanismi, 
loro progettazione e verifica, 
processi di produzione delle le- 
ghe, studio delle tecnologie per 
la lavorazione dei materiali, prin- 
cipi e mezzi per produrre ener- 
gia. come sono realizzati gli 
strumenti per la rilevazione di 
grandezze meccaniche o fisiche. 
Ecco alcuni temi del dizionario 
di Meccanica. ° 


ELETTRONICA 
Cod DSS24 pp. 384 L 14.000 


Il rapido sviluppo tecnologico di 
questi anni è sovente causa del- 
l'obsolescenza non solo di com- 
ponenti e sistemi elettronici, ma 
anche di concetti, documenta- 
zione e libri che trattano questa 
disciplina. Una delle funzioni di 
questo dizionario è quella di for- 
nire un valido sussidio per rima- 
nere sempre aggiornati 


RAGIONERIA 
GENERALE ; 

Cod. DS527 pp. 304 L. 14.000 
Sempre più rilevante è il ruolo 
che sta assumento la Ragioneria 
sia nelle scuole. sia nelle azien- 
de, sia infine nella formazione 
professionale. Il primo diziona- 
rio, dedicato alla Ragioneria Ge- 
nerale. comprende la spiegazio- 
ne dei concetti di base dei siste- 
mi e dei metodi contabili ed è 
arricchito dalla terminologia re- 
lativa alle società. 


GEOLOGIA 
Cod. DSS22 pp. 288 L 14.000 


Sopresti collocare termini come 
magnetudo, evaporite, cratone, 
faglia nel contesto della natura 
che ci circonda? Questi e altri 
1200 termini sono spiegati nel 
dizionario di Geologia che utiliz- 
za un completo sistema di ri- 
mandi per agevolare il lettore 
nella conoscenza e nell'appro- 
fondimento della materia. 











A GRUPPO EDITORIALE 


} JACKSON 


DI IZIONIE LIBFI 


RAGIONERIA 


APPLICATA 
Cod. DSS28 pp. 288 L. 14.000 


Il secondo dizionario è dedicato 
alla Ragioneria Applicata ed in- 
clude i concetti e. le spiegazioni 
utili per lo studente, il professio- 
nista e per chi opera nelle im- 
prese mercantili, industriali. 
bancarie, assicurative. Termini 
di contabilità degli enti pubblici, 
termini impiegati nelle analisi e 
nella formazione del bilancio 
completano la struttura dell'ope- 
ra. 


ASTRONOMIA 
Cod. DSS25 pp. 304 L. 14.000 


E esplosa una supernova nella 
Grande Nube di Magellano. Ma 
dov'è la Grande Nube e cos'è 
una supernova? Sono queste le 
domande che ci poniamo quan- 
do il cielo fa notizia sui quotidia- 
ni o nei notiziari televisivi e alle 
quali potremo trovare risposta in 
questo dizionario. 


I PICCOLI GRANDI DIZIONARI JACKSON 


NELLE MIGLIORI LIBRERIE 


Per acquistare libri Jackson rivolgetevi alle migliori librerie e negozi di informatica oppure utilizzate l'apposito tagliando riportato in fondo alla rivista. 
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di Mr. Lambda 


Disporre nel dispositivo audio di Amiga 
per capire come questo straordinario au- 
dio device lavori, e quindi sfruttare la ca- 
pacità manipolatoria del Forth per creare 

Ecco l'occasione per trasformare un in- 
contro in un avvenimento determinante. E 
noi non vogliamo perderla. Come avrete 
già capito inizieremo subito Forth...issimo, 
ma siate sempre pronti al peggio. In ogni 
senso. Il Forth, infatti, è un linguaggio che 
offre, come pochi, ampie capacità di ma- 
nipolazione e interattività, ma richiede pu- 
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CAPIRE E PILOTARE 
IL SUONO DI AMIGA 
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Ovvero il suono tra le dita 


re, come pochi, spiccate doti di creatività. 
Qualsiasi cosa si voglia, bisogna essere 
innanzitutto capaci di progettarsela e rea- 
lizzarsela da sè. Il programma che accom- 
pagna questo articolo è una valida dimo- 
strazione di ciò. Insomma, la programma- 
zione all'insegna dell’inventività e del bri- 
colage. Ma credeteci, si può arrivare dav- 
vero molto lontano. E intanto incomince- 
remo dal suono. 

Il metodo della riproduzione del suono 
utilizzato da Amiga è simile a quello utiliz- 


zato dai Compact Disc che molti di voi or- 
mai possiederanno. Anche se l'audio di 
Amiga non può essere paragonato con la 
fedeltà dei CD, la qualità del suono che 
può produrre risulta comunque impressio- 
nante. Ciò che limita le prestazioni di A- 
miga, se lo paragoniamo con il Compact 
Disc, è la frequenza di campionamento e 
il numero di bit a disposizione per cam- 
pione. Infatti un disco digitale ha una ri- 
sposta in frequenza che raggiunge i 20 
kilohertz, mentre l’Amiga è limitato teori- 
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camente a circa 14 kilohertz, e pratica- 
mente consente una riproduzione corretta 
fino a 7,5 kilohertz cioè alla metà della ci- 
fra teorica precedente. Inoltre, come si di- 
ceva, un Compact Disc utilizza più bit per 
rappresentare ciascun punto della forma 
d'onda campionata e quindi ha un più 
ampio spettro dinamico. 

Vediamo ora come l’Amiga produca ef- 
fettivamente un suono. Innanzituto il suono 
che deve venire riprodotto deve essere 
definito come una serie di numeri che rap- 
presentano il livello di voltaggio della forma 
d'onda campionata a determinati intervalli. 
| diversi voltaggi rappresentati da quei nu- 
meri devono quindi essere filtrati, amplifi- 
cati, e inviati a uno o più altoparlanti per 
produrre finalmente il suono desiderato. In 
questa maniera è possibile creare qualsia- 
si suono concepibile e inconcepibile all’in- 
terno, naturalmente, dei limiti imposti dalla 
frequenza a cui la forma d'onda può ve- 
nire campionata, che ne determinerà la ri- 
sposta in frequenza, con il numero di bit 
disponibili per ciascun campione, che ne 
determinerà la quantità di rumore nel se- 
gnale e la dinamica, e, infine, con la me- 
moria che abbiamo a disposizione. 

Naturalmente per una più dettagliata 
comprensione della produzione del suono 
in Amiga vi suggeriamo di consultare la 
sezione riguardante l’audio nell’HARDWA- 
RE REFERENCE MANUAL. 


Come tutto è iniziato... 


Innanzitutto precisiamo che per la scrit- 
tura e il collaudo del programma che vi 
andiamo a presentare abbiamo utilizzato 
il Multi-Forth della Creative Solutions per- 
ché più facilmente reperibile e più com- 
pleto. Le versioni più recenti di questo pro- 
dotto, tra le altre meraviglie, supportano 
anche un driver audio, rendendo quindi il 
tutto ancor più appetibile. Ma il Multi-Forth 
in nostro possesso, che è di gran lunga 
una versione più antica, per l’audio di A- 
miga non supporta alcunché. Ci siamo de- 
cisi a presentarvi questo programma in- 
nanzitutto perché rappresenta comunque 
un'ottimo esempio di applicazione del For- 
th alla soluzione di un problema fonda- 
mentale come quello del suono in Amiga 
e ne traccia in modo chiaro i passaggi e 
le possibilità permettendovi i più ampi svi- 
luppi e miglioramenti, ma soprattutto per- 
ché non sarete certamente in molti a pos- 
sedere le più recenti versioni del Multi- 
Forth e morirete, come noi, dalla voglia di 
poter controllare il suono di Amiga subito. 
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E veniamo ai fatti. 

Dobbiamo incominciare con l’ammette- 
re che realizzare il programma non è stato 
semplice e immediato come ci aspettava- 
mo, ma eccovi il resoconto della nostra 
avventura. 

Come ormai sapete, il nostro Multi-Forth 
non supportava alcunché per l'audio e non 
c'era alcun esempio nel manuale che ci 
potesse assistere. Insomma, possiamo di- 
chiarare che non una parola del vocabo- 
lario a disposizione ci permetteva di fare 
alcunché con il suono! Ma questo è Forth! 
E se qualcosa vi è necessario, dovete co- 
struirvela, diciamo bene? 

Quasi subito fummo in grado di capire 
che avevamo bisogno di una funzione 
chiamata nei manuali BeginlO. | manuali 
indicavano anche che la funzione si aspet- 
tava come argomento l'indirizzo di una 
struttura IORequest. Ma nulla di tutto que- 
sto esisteva nel nostro Multi-Forth. E a nulla 
sono servite le ricerche dettagliate nel no- 
stro manuale Multi-Forth: non c'era nulla, 
neanche qualcosa che potesse richiamare 
indirettamente questo concetto. La cosa 
che più ci ispirava era la funzione CalllO, 
ma questa non era chiaramente documen- 
tata, anzi non era documentata affatto, se 
non per una breve menzione nel glossa- 
rio del manuale. Prima di incazzarci defi- 
nitivamente con il nostro Multi-Forth, ab- 
biamo considerato il fatto che non c’era 
alcuna documentazione sulla funzione Be- 
ginlO nemmeno negli AMIGA REFEREN- 
CE MANUAL. Il solo riferimento che ave- 
vamo potuto trovare era nella appendice 
B dello EXEC MANUAL. Esso consisteva 
semplicemente in questa macro in linguag- 
gio assembler: 


_ BeginlO: 
move.l 4(sp),a1 
BEGINIO 
ris 


Ma non ci è stata di molto aiuto. 

Per farla breve abbiamo contattato tutti 
coloro che sembravano disposti a darci 
una mano e alla fine abbiamo deciso che 
il solo modo di risolvere questo problema 
era di arrangiarsi. i 

Ci siamo procurati una copia di Meta- 
scope — il debugger simbolico della Me- 
tadign — e un compilatore C, abbiamo 
compilato un programma demo che ri- 
guardava l’audio di Amiga, e quindi ab- 
biamo incominciato a curiosare. Quasi im- 
mediatamente abbiamo individuato la fa- 
migarata funzione BeginlO e l'abbiamo di- 
sassemblata. Eccola: 


_ BeginlO: 
movea.l 4(a7),al 
move.l a6,-(a7) 


movea.l $14(a1),a6 
jsr $-1E(a6) 
movea.l (a7)+,a6 
ris 


Quando assegnamo come parametro 
l'indirizzo di una struttura IORequest, la 
funzione BeginlO dapprima preleva da 
quella struttura un puntatore a un device 
node, cioè ad un nodo del dispositivo so- 
ftware dell’audio, quindi utilizza quel pun- 
tatore come offset alla base di una jump 
table o tavola di salti nella memoria bassa 
e finalmente da là salta al ROM Kernel. Che 
cosa ci potrebbe essere di più semplice, 
eh? 

Una delle difficoltà che si possono in- 
contrare nella traduzione di routine in Forth 
risiede nel differente modo in cui C e Forth 
passano i parametri. Perché tutto funzioni 
a dovere in Multi-Forth, la prima istruzione 
deve infatti essere: 


movea.l (a7)+,a1 


che muove l’indirizzo della struttura IORe- 
quest dallo stack dati del Multi-Forth (A7 
è lo stack pointer) nel registro A1. E an- 
cora lo RTS deve essere sostituito da: 


move.w (a2)+,d3 
jmp $18(26,d3.w) 


che è la macro per il NEXT in Multi-Forth. 

Nel listato che accompagna questo ar- 
ticolo voi troverete un’altra definizione CO- 
DE per la funzione NewList. Naturalmente 
è possibile scrivere questa funzione anche 
direttamente in Forth, ma non ci siamo 
potuti trattenere dalla tentazione di conti- 
nuare il lavoro iniziato con BeginlO! Per 


. evitarvi la fatica di caricare l’assembler vi 


proponiamo una versione delle due word 
che inserisce i valori in codice macchina 
esadecimale direttamente nel vostro dizio- 
nario. 

Ma a questo punto, era anche neces- 
sario implementare la chiamata OpenDe- 
vice della libreria Exec (che, per fortuna, 
è documentata nella nostra versione di 
Multi-Forth) per poter fornire a BeginlO un 
puntatore al device node. L'implementa- 
zione delle altre chiamate Exec è stata più 
semplice, e non si sono incontrati grossi 
problemi. 

Un altro lavoro preparatorio riguardava 
la definizione delle strutture dati richieste 
dal device audio. Vediamone dapprima la 
versione in C e la versione in Assembler 
che ne danno i manuali e quindi la tradu- 
zione che ne abbiamo fatto in Forth. Vi 
facciamo presente che le recenti versioni 
del Multi-Forth includono tutte le strutture 
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disponibili presentate dai AMIGA REFE- 
RENCE MANUAL, ma la versione in no- 
stro possesso invece non ci metteva a di- 
sposizione le strutture che intendiamo pre- 
sentarvi e quindi ci costringeva ancora una 
volta a cimentarci con la nostra capacità 
di risolvere anche questo problema. Ma 
come abbiamo già avuto modo di vedere 
questo è proprio lo spirito del Forth. 
Incominciamo con la struttura Message 
in C: 
struct Message 


struct Node mn__Node; 

struct MsgPort *mn__ReplyPort; 
UWORD mn_ Length; 

} 


E ora vediamone la versione in Assem- 
bler: 


STRUCTUREMN,LN__SIZE 
APTR. MN_REPLYPORT 
UWORD MN__LENGTH 
LABEL MN__SIZE 


E finalmente presentiamo la nostra ver- 
sione in Forth: 


structure Message 
LinkNode struct: +mnNode 
ptr: + mnReplyPort 
short: + mnLength 
structure.end 


E ora interessiamoci della struttura |O- 
Request, che, come potrete vedere, pre- 
senta delle particolarità. Innanzitutto pre- 
sentiamo le due strutture utilizzabili in C: 


struct IORequest 


{ 


struct Message io__Message; 
struct Device *io__Device; 
struct Unit *io__Unit; 
UWORD io__Command; 

UBYTE io__Flags; 

BYTE io_Error; 


} 


struct IOStdReq 
{ 
struct Message io_Message; 
struct Device *io__Device; 
struct Unit *io_Unit; 
UWORD io__Command; 
UBYTE io__Flags; 

BYTE  io_Error; 

ULONG io__Actual; 

ULONG io_Length; 

APTR  io_Data; 

ULONG io_ Offset; 


} 


E ora vediamo come queste strutture 
vengano tradotte in Assembler, conside- 
rando semplicemente la struttura IORe- 
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quest un sottoinsieme della struttura 1O- 
StdReq: 


STRUCTURE —IO,MN__ SIZE 
APTR IO__DEVICE 
APTR IO__UNIT 
UWORD IO__COMMAND 
UBYTE [O__FLAGS 
BYTE IO__ERROR 
LABEL IO__SIZE 
ULONG IO__ACTUAL 
ULONG IO__LENGTH 
APTR IO__DATA 
ULONG IO__OFFSET 
LABEL IOSTD__SIZE 


Per adeguare queste strutture al Forth 
si adotta il medesimo concetto visto nella 
precedente traduzione Assembler anche 
se la sintassi chiaramente ne differisce: 


structure IOStdReq 
structure IORequest 
Message struct: + ioMessage 
ptr: + ioDevice 
ptr: + ioUnit 
short: + ioCommand 
byte: + ioFlags 
byte: + ioError 
IORequest + 
long: + ioActual 
long: + ioLength 
ptr: + ioData 
long: + ioOffset 


structure.end 


structure.end 


Consideriamo brevemente il costituirsi 
di questa struttura e la soluzione program- 
mativa che le permette di operare corret- 
tamente. La word STRUCTURE crea una 
nuova word, fondamentalmente una co- 
stante, e lascia l'indirizzo del campo pa- 
rametri (parameter field) di quella word e 
uno zero nello stack. Lo zero è un valore 
fittizio in cui viene accumulata la dimen- 
sione della struttura. Quando STRUCTU- 
RE.END viene incontrata la dimensione 
accumulata della struttura viene memoriz- 
zata all'indirizzo del campo parametri della 
word. Come risultato di queste operazioni, 
quando viene eseguito il nome della strut- 
tura, ne viene restituita la dimensione. Dal 
momento che il nome della struttura ritorna 
la sua dimensione, l’inserzione di ’ IORe- 
quest + ’ alla fine della struttura IORequest 
aggiunge l'offset appropriato perché 
+ioActual venga eseguita correttamente. 

E finalmente consideriamo il template 
della struttura dati utilizzata dal device au- 
dio (audio.device). Essa include una strut- 
tura IORequest seguita da informazioni ri- 
guardanti la locazione e la lunghezza della 
tavola dati del suono, il periodo e il volume 
della forma d’onda e il numero di volte che 


il suono deve essere ripetuto. Incomincia- 
mo considerandone la struttura in C: 


struct Audio 

{ 

struct IORequest ioa_ Request; 
WORD ioa_AllocKey; 
UBYTE  *ioa_Data; 

ULONG ioa_ Length; 

UWORD ioa_ Period; 

UWORD ioa_ Volume; 

UWORD ioa_ Cycles; 

struct Message ioa_WriteMsg; 


Ecco la versione in sintassi Assembler: 
STRUCTURE Audio,J0__SIZE 


WORD ioa__AllocKey 

APTR ioa_Data 

ULONG —ioa_Length 

UWORD ioa_ Period 

UWORD ioa_ Volume 

UWORD ioa_Cycles 

STRUCT ioa_WriteMsg,MN__SIZE 
LABEL ioa__SIZEOF 


E quella in Multi-Forth: 


structure [OAudio 
IORequest struct: + ioaRequest - 
short: + iaAllocKey 
ptr: + ioaData 
long: + ioaLength 
short: + ioaPeriod 
short: + ivaVolume 
short: + ioaCycles 
Message struct: + ioaWriteMsg 
structure.end 


Tutte le costanti che sono comandi del 
device e che trovate nel listato sono spie- 
gate dettagliatamente negli AMIGA REFE- 
RENCE MANUAL. 

Vi abbiamo messo a disposizione, tra- 
ducendole in sintassi Forth, le funzioni 
CreatePort() e DeletePort() che sono di- 
sponibili in C e che si rivelerrano molto utili. 
CreatePort richiede e inizializza una mes- 
sage port che vi mette a disposizione un 
meccanismo per la comunicazione tra dif- 
ferenti task e interrupt. Una porta puo’ es- 
sere sia pubblica, cioè con un nome e co- 
nosciuta al resto del sistema sistema: 


0” nome” priorità CreatePort 


Oppure privata, e cioè senza nome e 
non conosciuta al resto del sistema: 


0 priorità CreatePort 


Nel caso dell'audio device noi abbiamo 
utilizzato una porta privata e senza nome 
dal momento che nessun altro task nel si- 
stema aveva necessità di sapere della sua 
esistenza. 

Noi ci scusiamo fin d’ora se non riusci- 
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remo a soddisfare ogni vostro dubbio, ma 
il metodo migliore per comprendere a fon- 
do questo nostro programma è studiarlo 
consultando opportunamente gli AMIGA 
REFERENCE MANUAL. E non trascurate 
lo EXEC REFERENCE MANUAL anche se 
all'inizio vi può sembrare ostico e difficile 
de comprendere. Noi abbiamo trovato il 
manuale veramente chiaro sotto molti pun- 
ti di vista, anche se naturalmente neces- 
sita di essere letto molte volte per riuscire 
ad afferrare alcuni punti più complessi. A 
ogni successiva lettura ci siamo accorti 
che ogni cosa ci riusciva più chiara e con- 
seguente. 


Ed è diventato suono 


Il listato che vi presentiamo vi permette 
di generare semplici forme d'onda all’in- 
terno di un limitato ambito di frequenze. 
Vi forniamo le tavole dei dati per l'onda 
sinusoidale (Sine), l'onda quadra (Square), 
l’onda triangolare (Triangle) e l'onda a 
dente di sega (Sawtooth) che possono pro- 
durre buoni risultati tra i 1200 e i 2400 Hz. 
Anche frequenze tra 600 e 1200 Hz pos- 
sono essere riprodotte con buoni risultati 
anche se ciò non è strettamente in accordo 
con quanto enunciato nel manuale dello 
Hardware. Le frequenze al di fuori di que- 





AudioDemo 


Leti rt rr 


anew AudioDemo 


Ecco il codice Assembler di cui 
abbiamo bisogno per includere ° 





sti limiti produrranno suoni distintamente 
distorti. 

Ciascuna tavola di dati audio consiste 
di dodici campioni che descrivono un ci- 
clo completo. Le frequenze più basse ri- 
chiederebbero una tavola di dati più lunga, 
e le frequenze più alte Meno campioni. Per 
creare un suono continuo basta che pun- 
tiate il DMA audio alia tavola dei dati del- 
l'onda e gli comunichiate quante volte de- 
siderate ripeta i dati. Un ciclo è sufficiente 
per generare un suono continuo. ll DMA 
si riposiziona automaticamente all’inizio 
dell’array dei dati ogni volta che raggiunge 
la sua fine e ripete questa operazione fino 
a quando ha riletto l'array per il numero 
di volte che avete specificato. 

E adesso vi diamo alcune spiegazioni 
che riguardano la word Hz. Il manuale 
dello Hardware indica un metodo per de- 
terminare adeguatamente la frequenza di 
campionamento necessaria a produrre 
una data frequenza da un precostituito nu- 
mero di campioni che noi chiaramente non 
abbiamo seguito. Questo metodo è basato 
sul periodo del timer audio e il periodo 
della frequenza desiderata, ma è molto più 
semplice utilizzare le frequenze per ese- 
guire i calcoli necessari in modo da evi- 
tare reciproci o calcoli con virgola mobile. 
Ecco l'equazione: 








HEX 





\ 
\ 
\ 
\ 


2069 
FFE2 
4EF6 


CREATE BeginI0 ( IO0Request -- }) 
-4 ALLOT 


Frequenza__di_ Campionamento = 
AudioClock / (Frequenza__Desiderata 
* Campioni) 


Dove Frequenza__di_ _Campiona- 
mento è il numero di tick che il clock del- 
l'audio deve aspettare prima di prelevare 
un campione, la frequenza di AudioClock 
è 3,579546 Mhz, e Campioni è il numero 
di campioni che devono essere riprodotti 
in un periodo della forma d’onda. 

La word Hz calcola il periodo richiesto 
per generare una determinata frequenza 
da una tavola di dodici campioni e me- 
morizza quel valore in una variabile chia- 
mata Period per servirsene successiva- 
mente. 

Ora parleremo delle altre word descri- 
vendo l’azione della word Wave. La prima 
cosa che Wave fa è tentare di aprire una 
port audio. La word AudioPort? ci restitui- 
sce l'indirizzo della port allocata dalla word 
CreatePort, se, naturalmente questa ha 
successo, e il flag 0 se questa non ha 
successo. Se il tentativo di creare una mes- 
sage port non ha successo Wave termina 
con il messaggio ”La port del device au- 
dio non è stata aperta. “ 

Se la message port è stata aperta con 
successo Wave continua inizializzando 
dapprima la struttura ioaRequest della 
struttura IOAudio sound con i valori richie- 
sti dalla chiamata di sistema OpenDevice. 








e per evitarvi la fatica 
di caricare l'Assembler, 
eccovi una versione 
alternativa. 


225F w, 
0014 w, 
205F w, 
3018 w, 


2FOE w, 
4EAE w, 
I61A w, 


Wi 
Wi 
Wi 


le funzioni BeginI0 e NewList 


: ; ; CODE NewList ( list -- } 
nei nostri programmi. 


SP )+ AO LONG MOVEA, 
AO AO () LONG MOVE, 
AO () 04 LONG ADDA, 

4 AQ I) LONG CLRA, 

AO 8 AO I) LONG MOVE, 
NEXT END-CODE 


Paiiratiirati at 











\ 

\ SP )+ AT LONG MOVEA, 

\ A6 A? -) LONG MOVE, 

\ 20 Aî I) A6 LONG MOVEA, 
\ 

\ 

\ 





x 
\ 
\ 
CODE BeginIO ( IORequest -- ) \ 
\ 
\ 
\ 


-30 A6 I) USA, 
A? )+ AG LONG MOVEA, 
NEXT END-CODE 


CREATE NewList ( list 
-4 ALLOT 205F w, 


-- ) 
2088 w, 
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sa 


seria 

arene 
FORTI MITA 
ì 


x 


; i 
44 
e; 





bit 1 
LAZ 





| 


ò. 
RI a 
I TRIO 

$ a, 


î TEOR 


SE unì 
È. da 











5890 w, 42A8 w, 0004 w, 
2148 w, 0008 w, 361A w, 
4EF6 w, 3018 w, 


DECIMAL 


AllocMem 
dimensiane in byte\caratteristiche 
-- blocco di memoria ) 

!1d1 !d0 exec® 33 ; 


FreeMem 

blocco di memoria\dimensione_in byte 
255) 

1d0 lat exec 35 ; 


AllocSignal 
num_segnale -- num_segnale ) 
1d0 exec® 55 ; 


FreeSignal ( num segnale -- ) 
!d0 exec 56 ; 


AddPort ( port -- ) 
ta? exec 59 ; 


RemPort ( port -- ) 
ta1 exec 60 ; 


OpenDevice 
inome_dev\unita”\ioRequest\flag 
-- errore ) 

1d1 la IdO0 !ta0D exec@ 74 ; 





AMIGA magazine 








CloseDevice ( ioRequest -- ) 
fat exec 75 ; 


: WaitI0 ( ioRequest -- error ) 
tal exec@ 79 ; 


SYMTABLE DEFINITIONS 
4 wconstant NT MSGPORT 
O wconstant PA_SIGNAL 


structure Message 
LinkNode struct: +mnNode 
ptr: +mnAeplyPort 
short: +mnLength 
structure.end 


1 0 scale wconstant MEMF PUBLIC 
1 16 scale constant MEMF_ CLEAR 


\ osservate bene ora un esempio 
\ di struttura nidificata 


structure IOStdReg 
structure IORequest 
Message struct: +ioMessage 

ptr: +ioDevice 
ptr: +ioUnit 

short: +ioCommand 

byte: +ioFlags 

byte: +ioError 
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structure.end IORequest + 


-long: +ioActual 
long: +ioLength 
ptr: +ioData 
long: +ioDffset 


structure.end 


1 wconstant IOF_ QUICK 

3 wconstant CMD WRITE 

0” audio.device” constant AUDIONAME 
1 4 scale wconstant ADIOF PERVOL 
structure IOAudio 


IORequest struct: +iocafRequest 


short: +ioaAllockey 
ptr: +ioaData 
long: +tioaLength 
short: +ioaPeriod 
short: +ioaVolume 
short: +icaCycles 


Message struct: +ioaWriteMsg 


structure.end 
FORTH DEFINITIONS 


Il formato adeguato per creare 
una port senza nome e quindi 
privata e”: 

O pri CreatePort 


ii pl ql gg 


CreatePort ( 0" nome"\pri -- 
MsgPort oppure 0 } 
LOCALSI pri name | 


-1 AllocSignal 


\ controlliamo innanzitutto se 
\ abbiamo ottenuto un bit per il 
\ segnale 


dup -1 = not 


\ e’ gia’ allocata la memoria per la 
\ nostra port ? Se no, facciamolo 


IF MessagePort 
MEMF_ CLEAR MEMF_ PUBLIC OR 
AllocMem dup 0= 





abituale controllo sul risultato 
dell’ allocazione 

in caso di risultato negativo 
concludiamo inserendo nello stack | 


St pt spet Pg 











AES ite gii Vo preti 


\ uno zero o NULL 


IF DROP FreeSignal 0 


\ altrimenti ci decidiamo ad 
\ inizializzare la struttura 
\ MessagePort 
ELSE 
name over +mpLinkNode 
+lnName ! 
pri over +mpLinkNode 
+lnPPri C! 
NT_MSGPORT over +mpLinkNode 
+lnType C! 
PA_SIGNAL over +mpFlags CI 
swap over +mpSigBit C! 
O FindTask over +mpSigTask ! 
dup name 
\ se la port e’ ‘pubblica’, cioe’ 
\ ha un nome, AddPFort permette al 
\ resto del sistema di individuarla 
\ e 0" name" FindPort ci restituira’ 
\ il suo indirizzo 
IF AddPort 
ELSE +mpLinkHeader NewList THEN 
THEN 
ELSE drop 0 
THEN ; 
DeletePort ( port -- }) 
LOCALSI port | 


port +mpLinkNode +InName ® 
IF port RemPort 

THEN 
255 port +mpLinkNode +lnType C! 
-4 port +mplLinkHeader +1hHead ! 
port +mpSigBit C@ FreeSignal 
port MessagePort FreeMem ; 


struct I0Audio sound 
sound IQAudio ERASE 





DECIMAL 


CREATE ChannelMask 15 C, 

\ in questo modo potremo utilizzare 
\ tutti e quattro i canali 

\ disponibili 
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CREATE Samples 12, 
\ la lunghezza dei dati del suono 


CREATE Period 400 W, 

\ intervallo che intercorre tra 
\ un campione e il successivo 

\ in tick del timer 


CREATE Duration 400 W, 
\ numero di volte che vogliamo far 
\ ripetere il suono 





VARIABLE >Sound 
\ puntatore ai dati del suono 


:AudioData ( nome ( -- ) 
CREATE DOES> >Sound ! ; 


:AudioData Sine 
Oc, 63 cc, 109 cc, 
126 c, 109 c, 63 c, 
Dc, -63 c, -109 c, 
-126 c, -109 c, -63 c, 


Sine \ forma d’onda di default 


:AudioData Square 


80 c, 80 c, 80 c 
80 c, 80 c, 80c, 
-80 c, -80 c, -80 c, 
-80 c, -80 c, -80 c 


:AudioData Triangle 
Oc, 42 c, 84 c, 
126 c, B4 c, 42 c, 
0 c, -42 c, -84 c, 
-126 c, -84 c, -42 c, 


:AudioData Sawtooth 
Oc, 25 c, 50 c, 
52? c, 100 c, 125 c, 

-125 c, -100 c, -75 c, 

-50 c, -25 c, O e, 


35729546 ( Hz ) CONSTANT AudioClock 
\ intervallo di frequenza del timer 


Hz ( freq -- }) 
Samples @® * AudioClock swap / 


Period W! |; 
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FreeAudioPort ( -- }) 
sound +ivaRequest +ioMessage 
+mnReplyPort ® DeletePort ; 


AudioPort? ( -- MsgPort oppure D ) 
0 0 CreatePort dup 
IF dup sound +iocaRequest 
+tioMessage +mnfieplyPort ! 
THEN ; 


AudioDevice? ( -- vero oppure falso } 
AUDIONAME 0 sound 0 OpenDevice NOT; 


initSoundPort ( -- } 

10 sound +ioaRequest +ioMessage 
+mnNode +IinPpri C! 

ChannelMask sound +ioaData ! 

1 sound +ioaLength ! ; 


initSoundStruct ( -- }) 

CND_WRITE sound +icaRequest 
+ioCommand W! 

ADIOF_ PERVOL IOF_QUICK or sound 
tioaReguest +ioFlags C! 

>Sound @ sound +ioaData ! 
Duration W® sound +ioaCycles WI! 
Samples @ sound +ioalength |! 
Period W@ sound +ioaPeriod WI 
64 sound +icaVolume W! 


y 


Wave ( -- ) 
AudioPort? 
IF initSoundPort 
AudioDevice? 
IF initSoundStruct 
sound BeginIO sound Waiti0 
drop sound CloseDevice 
ELSE 
"Il device audio non e’ stato aperto." 


THEN FreeAudioPort 
ELSE 
" La port audio non e’ stata aperta. 
THEN 


” 


«| \ ed eccoci, finalmente, con un esempio 
| \ all'utilizzo del programma: 
“N 300 Hz Sine Wave 
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La priorità richiesta viene memorizzata nel 
campo +InPpri della struttura IOAudio. A 
proposito di + InPpri permetteteci un com- 
mento. Probabilmente a molti di voi sarà 
sembrato un errore o un refuso, dal mo- 
mento che si riferisce a LN__PRI della re- 
lativa struttura in Assembler oppure a 
In__Pri della relativa struttura in C, e invece 
è proprio così. Ma tant'è. E dal momento 
che così appare nella nostra versione di 
Multi-Forth, noi siamo stati costretti ad ac- 
cettarlo proprio così, nudo e crudo, e sba- 
gliato. Quindi per non perdere il controllo 
del vostro sistema nervoso per un errore 
che vi sembra sciocco e impossibile, date 
un'occhiata alla word relativa che è pre- 
sente nella vostra versione. Bene. E ora 
continuiamo. Si diceva della word Wave e 
delle sue successive inizializzazioni. Dopo 
la priorità, l'indirizzo di ChannelMask viene 
memorizzato nel campo +ioData, che ri- 
chiederà per noi al sistema tutti quattro i 
canali. La mask per la richiesta dei canali 
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consiste in un solo byte, e così + ioaLength 
viene settato a uno. 

La word AudioDevice? tenta poi di a- 
prire il device audio con una chiamata alla 
funzione della libreria EXEC OpenDevice 
e ritorna un flag vero se ha successo. Se 
la chiamata ha successo la struttura IOAu- 
dio viene riinizializzata affinché punti ai dati 
per la generazione della forma d’onda. 
Altrimenti l'esecuzione termina con il mes- 
saggio “Il device audio non è stato 
aperto.‘ e quindi viene liberata la memo- 
ria allocata per la message port. Se l’a- 
pertura del device audio ha successo e la 
funzione OpenDevice ha memorizzato l’in- 
dirizzo del device node nel campo 
+ioDevice, l'indirizzo della struttura sound 
viene passato alla funzione BeginiO che 
abilita il DMA audio e produce il suono. 
WaitlO attende che il suono finisca, e Clo- 
seDevice abbandona il device audio. 
FreeAudioPort restituisce allo heap del si- 
stema la memoria allocata per la message 
port. : 


Disegno realizzato 
con Amiga 2000 

e stampato 

con Xerox 4020. 


La sintassi appropriata per generare un 
SUONO è: 


1200 Hz Sine Wave 
2000 Hz Square Wave 


e così via. Naturalmente, una volta che la 
frequenza sia stata specificata utilizzando 
Hz, non è più necessario ripetere il co- 
mando se intendiamo generare un altro 
tipo di forma d'onda della stessa frequen- 
za. In altre parole, una volta che Il coman- 
do 2000 Hz viene eseguito, Triangle Wave 
oppure Sawtooth Wave genereranno le 
forme d'onda appropriate alla frequenza 
2 kHz. E ancora, dopo che siano stati 
specificati la frequenza e i dati della forma 
d’onda, Wave può venire utilizzato nuova- 
mente per rigenerare lo stesso tono. 

Bene, ora che la strada verso il controllo 
del suono in Forth è stata aperta non pos- 
siamo che augurarci che possiate prose- 
guire nel migliore dei modi. AI prossimo 
incontro. 
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Patti chiari, amicizia lunga 


di Mr. Lambda 


Avviarsi sulla luminosa strada della 
programmazione con il linguaggio C è 
possibile a patto che sappiamo adattare 
le nostre conoscenze di programmazione 
al nuovo ambiente oppure ci accostiamo 
fin dall’inizio con idee chiare e precise alle 
possibilità offerte da questo sorprendente 
linguaggio. Ed è proprio questo lo scopo 
di questo nostro incontro. Quindi inforca- 
te i vostri occhiali da sole e seguiteci. 

Negli articoli che via via vi introdurranno 
al linguaggio, il C non sarà lasciato a se 
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stesso, ma volta per volta verrà messo in 
relazione ad altri linguaggi come il BASIC, 
il Pascal, l’Assembly, ecc. E questo perché 
riteniamo che alcuni aspetti del C saranno 
facilmente appresi da coloro che conosca- 
no sufficientemente un altro linguaggio di 
programmazione. Prendiamo, per esem- 
pio, la funzione C chiamata printf() che 
stampa messaggi sullo schermo. Il suo 
nome significa ’ print formattato '. Se la 
parola ’ funzione ’ vi e’ nuova, ma non lo 
dovrebbe essere, potete sostituirla con le 


parole ' subroutine ’ oppure ’ procedura 
'. Una funzione e' una parte di una pro- 
gramma che esegue un determinato lavo- 
ro, come stampare messaggi sullo scher- 
mo, oppure leggere file dal disco. 

Ma prima di continuare concediamoci 
alcuni brevi riferimenti storici. La maggior 
parte delle Introduzioni al linguaggio C 
comprendono riferimenti storici per parec- 
chie buone ragioni. Innanzitutto calarsi nel- 
la giusta atmosfera e quindi comprender- 
ne i rapporti con l'evoluzione informatica. 
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Brian Kernighan e Dennis Ritchie hanno 
scritto il libro “The C Programming 
Language”, che voi potete leggere nella 
traduzione offerta dalla Jackson, nel 1977. 
Ma il linguaggio C era stato già sviluppato 
agli inizi degli anni settanta sotto il sistema 
operativo Unix. Infatti, come già dovreste 
sapere, a tutt'oggi il sistema operativo Unix 
è scritto proprio in C e il C a sua volta 
adotta alcune convenzioni del sistema U- 
nix, come il modo standard dei programmi 
in C di accettare input e inviare output. 

Ma c'è dell'altro. E ci sono altre ragioni 
per questo. C e Amiga sono strettamente 
imparentati. AmigaDOS, il sistema opera- 
tivo di Amiga, è basato sul sistema ope- 
rativo TRIPOS. Martin Richards della Cam- 
bridge University, uno dei ricercatori che 
ha contribuito maggiormente a TRIPOS, 
ha pure scritto un linguaggio chiamato 
BCPL, che a sua volta ha ampiamente in- 
fluenzato la formulazione del linguaggio C 
e insieme al linguaggio C è stato utilizzato 
per lo sviluppo del sistema operativo di 
Amiga. Ma non basta. Commodore-Amiga 
ha utilizzato il C per scrivere Intuition e 
Workbench, il software a window e menu 
di Amiga. 

Ormai si può dire, senza timore di smen- 
tite, che il C è divenuto il linguaggio pre- 
ferito tra i programmatori per tutte le sue 
straordinarie qualità e i pochi difetti. Il C è 
rapido, soddisfacente per la maggior parte 
delle applicazioni. Il C è veramente versa- 
tile e flessibile. Permette al programmatore 
di fare quasi ogni cosa. Mentre il Pascal 
può rifiutarsi di permettere l’assegnamento 
di una variabile in virgola mobile a una 
variabile carattere, e il BASIC si rifiuta di 
assegnare una variabile stringa a una va- 
riabile intera, il C permette con facilità tali 
assegnamenti. Per quanto siano possibili, 
queste mescolanze di tipi di dati non sono 
consigliabili, ma in ogni caso il C assume 
che voi sappiate che cosa state facendo 
e compie esattamente ciò che gli avete 
chiesto. 

Questa caratteristica del linguaggio vie- 
ne chiamata ’ typing '. IL Pascal e’ un lin- 
guaggio fortemente tipizzato, dal momen- 
to che l’operatore ’ := ’ non ci consente 
di assegnare un numero in virgola mobile 
a una variabile carattere. Il BASIC e’ meno 
fortemente tipizzato , dal momento che ’ 
= * assegnera’ numeri in virgola mobile 
ad interi e viceversa. Tuttavia il C è debol- 
mente tipizzato, anche se offre una varietà 
e complessità di tipi di dati di tutto rispetto. 
Il compilatore può produrre un avvertimen- 
to o warning nel caso che i tipi di dati non 
corrispondano, ma continuerà a fare il suo 
dovere fino in fondo e il programma gi- 
rerà ugualmente. 
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Ma se qualcuno a questo punto sta già 
svenendo o giù di lì per la terminologia 
utilizzata, vi proponiamo i seguenti com- 
menti. ! numeri in virgola mobile sono nu- 
meri con una componente frazionale. | 
computer devono rappresentare 7,302 co- 
me: un numero a virgola mobile, mentre 
3751 può essere memorizzato come un 
numero intero. E importante osservare che 
ciascun tipo una quantità diversa di spa- 
zio di memoria per essere memorizzato. 

| programmatori più smaliziati conside- 
rano il comportamento del C rispetto ai tipi 
di dati come una qualità del linguaggio e 
vi si riferiscono in termini di flessibilità. Co- 
loro invece che si avvicinano al C dopo 
essersi abituati a programmare in Pascal 
o BASIC considerano questa libertà del 
linguaggio come una disgrazia. ll C, infatti, 
ha pochi avvertimenti del tipo abituale in 
Pascal oppure BASIC. Anche il C è un lin- 
guaggio compilato esattamente come il 
Pascal o il Modula-2 e diversamente dal 
BASIC, che è un linguaggio interpretato. 
E se voi conoscete il Pascal oppure il Mo- 
dula-2 apprenderete molto più facilmente 
il C. Quando si parla di linguaggio ’ com- 
pilato ’ significa che un programma viene 
convertito in un’altra forma prima di essere 
eseguito. Per i linguaggi compilati, un pro- 
grammatore crea un testo sorgente o co- 
dice sorgente con un editor, e quindi com- 
pila il codice sorgente con il compilatore, 
producendo un codice oggetto o modulo 
oggetto. | moduli oggetto devono essere 
poi linkati con un programma linker per 
produrre un programma eseguibile. Il 
compilatore traduce il codice sorgente nel 
linguaggio macchina del computer, e pro- 
duce una lista di variabili e funzioni utiliz- 
zate all’interno di questo programma. Per 
esempio, un programma puo’ utilizzare la 
funzione printf(). Questa funzione può far 
parte del linguaggio, ma deve essere de- 
finita da qualche parte al di fuori dal co- 
dice sorgente, a meno che non la ridefi- 
niate voi per l'occasione. La funzione prin- 
tf) viene detta appunto esterna o non ri- 
solta, dal momento che il compilatore non 
può generare codice macchina per essa. 
Un modulo oggetto è composto da que- 
sta mescolanza di linguaggio macchina e 
liste di riferimenti non risolti (unresolved 
references). 

Dopo che il programma è stato compi- 
lato, tutti questi riferimenti alle funzioni e 
alle variabili devono essere risolti con il 
linker. 

Se voi comprerete un compilatore C, 
insieme con esso avrete a disposizione 
diverse collezioni di funzioni pre-scritte e 
pre-compilate, chiamate librarie. Le fun- 
zioni standard come printf() sono incluse 


in una libreria, mentre sin(), cosf) e altre 
funzioni matematiche sono incluse in un'al- 
tra. 

Il modulo oggetto prodotto precedente- 
mente viene linkato con una o più librerie. 
Il linker utilizza la lista delle funzioni e va- 
riabili non risolte del modulo oggetto per 
individuare ciascuna libreria di cui servirsi. 
Se una funzione viene trovata in una libre- 
ria, vengono cercati il suo codice macchi- 
na e la sua lista di riferimenti non risolti, 
fino a trovare e risolvere tutti i riferimenti. 
Quindi solamente il linker può produrre un 
programma eseguibile. Questo file viene 
composto solamente dalle funzioni che ne- 
cessarie al programma. Le altre funzioni 
di libreria vengono lasciate fuori. 

Se il linker non può trovare un riferimen- 
to, non può produrre un programma cor- 
retto, dal momento che manca qualcosa 
che costituisce il programma. Il program- 
ma linker si fermerà dopo aver stampato 
una lista di funzioni e/o variabili esterne 
(unresolved externals) che non riesce a 
trovare nelle librerie a disposizione. In que- 
sto caso, il programmatore dovrebbe esa- 
minare l'output del linker ed effettuare le 
correzioni del caso. Spesso il testo sor- 
gente contiene errori di ortografia. Se prin- 
tf) è stato scritto prnitf(), il linker non riu- 
scirà mai a trovare prnitf(), anche se è in 
grado di individuare printf(). Se, per esem- 
pio, sin() e cos() compaiono nella lista di 
output del linker, il programmatore può 
anche aver dimenticato di includere la li- 
breria di funzioni matematiche. La vostra 
abilità di interpretare correttamente l’ou- 
tput del linker si svilupperà con il tempo. 

Questo processo di compilazione e lin- 
kaggio vi costringe a scrivere molto nel 
CLI. Voi potete però servirvi sia di speciali 
comandi presenti nei compilatori stessi - 
LC nel compilatore Lattice C per esempio 
-, sia di particolari file batch o execute 
chiamati MAKE. Nell'articolo dedicato al C 
del numero precedente della rivista vi ab- 
biamo appunto presentato un'utility MAKE 
che vi permette di utilizzare efficacemente 
il compilatore Lattice C 3.10. Se voi avete 
creato un programma C chiamato Prova.c 
e volete compilarlo, è sufficiente che scri- 
viate sulla linea comandi del CLI. 


EXECUTE MAKE PROVA 


E il gioco è fatto. Come vi abbiamo già 
spiegato il file batch 0 execute contiene 
tutti i comandi CLI necessari per la com- 
pilazione e il linkaggio di un programma 
C, evitandovi un mucchio di digitazione ad 
alto rischio! 


Primi passi 





Esaminiamo con attenzione un breve e 
semplice programma in C, BASIC, e Pa- 
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scal. Il programma moltiplicherà due nu- 
meri e stamperà il risultato. Eccolo in C: 


# include ”stdio.h” 
I* un programma per moltiplicare due numeri */ 
mainf) 


{ 


int a,b 


, 


, 


€ 
3 
4 
a 


Oo ms 


Hu 


* b; 
printf(”Il risultato è %d\n”,c}); 


} 


Eccolo invece in BASIC: 


5 REMun programma per moltiplicare 
6 REM due numeri 


10 a=3 
20 b=4 
30 c=a*b 


40. print "It risultato è ”;c 
E in Pascal: 
program add(input,output); 
integer a,b,c; 
(* un programma per moltiplicare due numeri *) 
begin 


a:= 3; 

D:=4; 

cisa*b; 

writeln('II risultato:’,c); 


end. 


Per prima cossa potete notare che un 
programma in C ha molta puntaggiatura. 
Il C utilizza la puntaggiatura nello stesso 
modo in cui Pascal utilizza ' begin ' e’ 
end’. Questo sembra rendere i programmi 
in C piu' difficili da leggere dei programmi 
in Pascal, per esempio. Mentre il Pascal 
utilizza * begin ' e’ end per delimitare 
l’inizio e la fine delle procedure e delle 
funzioni, il C utilizza le parentesi graffe ’ { 
* e'}”. Inoltre, il Pascal e il C separano i 
commenti all programma dal codice an- 
cora con l'utilizzo della punteggiatura. Il C 
utilizza la coppia di ’ /* ’ e’ */’, mentre il 
Pascal utilizza ‘ (** e’ *)”. Il BASIC uti 
lizza invece lo statement REM all’inizio del- 
la linea per segnalare all’interprete un 
commento. Coloro che utilizzano Amiga- 
BASIC sanno pero’ che i commenti pos- 
sono venire segnalati al compilatore anche 
attraverso l'utilizzo dell’apostrofo ('*) e che 
non sono necessari i numeri di linea. Quasi 
tutto cio' che viene detto a proposito del 
Pascal può essere applicato al Modula-2. 

Sia il Pascal che il C sono linguaggi 
compilati. Osservate come il Pascal e il C 
dichiarino esplicitamente negli esempi le 
variabili a, b e c. Il Pascal scrive integer 
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* dove il C scrive ‘' int’ per dichiarare una 
variabile integera. 

Questo e’ comune ai linguaggi compi- 
lati. Un compilatore infatti ha bisogno di 
conoscere il tipo (type) della variabile pri- 
ma di utilizzarla nel programma. Questa 
conoscenza verrà utilizzata per eseguire 
correttamente le operazioni, come addi. 
zioni o moltiplicazioni, quando questa va- 
riabile viene utilizzata successivamente, 
poiché numeri interi e numeri a virgola 
mobile vengono utilizzati differentemente 
e occupano un diverso spazio di memo- 
ria. 

L'esempio in BASIC no necessita di di- 
chirazioni di tipo esplicite per ciascuna va- 
riabile. Il BASIC è un linguaggio interpre- 
tato. (Naturalmente esistono anche ottimi 
compilatori per il BASIC come quello of- 
ferto dalla Microsoft per AmigaBASIC.) 
Quando voi digitate RUN, il computer a- 
nalizza il testo di ciascuna linea per ese- 
guire successivamente i diversi passi del 
programma. Se il BASIC incontra una va- 
riabile che non riconosce, asssume che 
quela variabile sia un numero in virgola 
mobile. Quindi nel nostro esempio a,b e c 
sono variabili in virgola mobile. 

IL C ha pure anche altri tipi di variabili 
oltre a ’ int": ’ float’ per virgola mobile, e 
‘ char ' per variabili carattere e altre che 
vedremo a suo tempo. Ciascun tipo pos- 
siede un intervallo valido di valori. Per e- 
sempio. ’ int” e’ limitato a più o meno due 
bilioni in Amiga, mentre ’ char ’ e’ limitato 
ai valori tra +127 e -128, In realtà per 
questi intervalli bisogna sempre tenere an- 
che conto delle implementazioni reali dei 
vari compilatori. 
| tipi * integer ‘, cioe' interi come ’ char 
e’ int’, possono venire modificati dalla 
parola * unsigned ' - senza segno -, crean- 
do in tal modo i tipi ' unsigned char’ e’ 
unsigned int ‘. Questi tipi hanno rispettiva- 
mente intervalli tra 0 e 255 e tra 0 e oltre 
i 4,2 bilioni. Se voi conoscete bit e byte, 
potrete dedurne che questi valori possono 
essere rappresentati in 8 e 32 bit. Ciascun 
tipo ha diversi operatori validi, come ad- 
dizione e sottrazione, moltiplicazione e di- 
visione. Diversamente dal BASIC e dal Pa- 
scal, il C e' molto flessibile relativamente 
alla possibilità di operare con essi. Per 
esempio, potete addizionare variabili ’ 
char ' e variabili ’ int *. Il valore di un 
char ' e’ il valore ASCII del carattere me- 
morizzato all'interno di esso. In BASIC po- 
treste ottenere questo valore utilizzando la 
funzione ASC(), in Pascal potreste invece 
utilizzare ORD(. 

Avrete senz'altro osservato che le linee 
del programma in C e in Pascal terminano 
con un punto e virgola. Questa è un'altra 


caratteristica dei linguaggi compilati. Il’ ; 
comunica al compilatore che il program- 
matore ritiene che la linea sia completa. 
Infatti, le linee dei programmi in C possono 
essere distribuite su diverse linee fisiche 
senza alcuna conseguenza dannosa. 


printf 


"|| risultato e' %d” 


<. — o - 


Il compilatore analizza la linea nello stes- 
so modo. E questo non è possibile con la 
maggior parte degli interpreti BASIC. 

Incominciamo a prendere in considera- 
zione il codice C. 


# include ‘”stdio.h” 


È un comando per una parte speciale 
del compilatore chiamata preprocessore. 
Questa linea compilatore: ” a questo punto 
compila anche il file programma chiamato 
stdio.h”. Questo file contiene le dichiara- 
zioni delle variabili e delle funzioni utilizzate 
da printf() e altre funzioni standard di I/O. 
Il preprocessore ha anche altre caratteri 
stiche che considereremo in seguito. 

Osserviamo ora attentamente la linea 
che contiene la funzione printf(). Printf) ha 
due argomenti, una stringa di caratteri con- 
tenente il testo “li risultato è %d\n” è il 
nome di una variabile intera, c. Per un 
programmatore in C questi sono gli argo- 
menti passati alla funzione, gli argomenti 
della funzione oppure ancora i valori pas- 
sati alla funzione. Come avrete ormai ca- 
pito gli argomenti vengono collocati tra le 
parentesi e separati dalle virgole. 

Il primo argomento passato alla funzio- 
ne printf() descrive il formato del testo che 
noi vogliamo visualizzare sullo schermo. 
Esso contiene due parti che potrebbero 
esserci poco familiari, entrambe presenti 
verso la fine del testo tra virgolette. (Ah, 
se voi conosceste il FORTRAN, potreste 
ora contare sulla conoscenza del coman- 
do FORMAT!) Il Yed significa ” qui stampa 
un valore intero”. Il \n significa ” qui stam- 
pa una carattere di accapo”, che dovreb- 
be muovere il cursore sulla linea succes- 
siva, esattamente come succede quando 
voi premente il tasto del Return. Se noi 
desideriamo visualizzare due valori utiliz- 
zando printf(), possiamo scrivere: 


printf( “Noi abbiamo %d mele e %d 
pere.\n”,mele, pere); 


Per ottenere questo risultato: 
Noi abbiamo 7 mele e 5 pere. 
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Se naturalmente le variabili ' mele ’ e’ 
pere ' contengono rispettivamente i valori 
7e5. 

Noi potremmo chiedere a printf() di 
stampare un valore in un campo di deter- 
minata ampiezza. Se si utilizza %4d come 
formato per gli interi, il numero sara' vi- 
sualizzato con gli spazi necessari per riem- 
pire quattro posizioni carattere. La funzio- 
ne printf() ha altri comandi di formattazione 
- per una visione complessiva e dettagliata 
consultare sempre il manuale del proprio 
compilatore -, come %x, per esempio, che 
stampa valori in esadecimale oppure %c, 
utilizzato con le stringhe formattate per vi- 
sualizzare un valore come carattere ASCII, 
similmente al comando BASIC CHR$(. 

Le funzioni vengono utilizzate estensi- 
vamente in C; e alle funzioni pre-scritte che 
il linguaggio vi mette a disposizione ben 
presto si affiancheranno le funzioni che voi 
stessi scriverete per i vostri programmi. Se 
voi avete utilizzato il Pascal avrete acqui- 
stato una certa familiarità con le procedure 
e le funzioni. Ebbene le funzioni C ricor- 
dano proprio queste ultime dal momento 
che ritornano tutte un valore. (In realtà e- 
siste la parola riservata VOID che preclude 
alle funzioni la possibilità di ritornare va- 
lori, ma di ciò in seguito, quando ne sa- 
prete molto di più.) Le funzioni C, comun- 
que, non possono venire nidificate come 
succede nel Pascal con le procedure e le 
funzioni. 

Se voi non avete mai utilizzato il Pascal, 
pensate alle funzioni BASIC SIN() e COS(). 
Queste funzioni ritornano un valore in vir- 
gola mobile basato sul loro argomento, e 
cioè il numero tra parentesi. Tutte le fun- 
zioni C ritornano un valore di un determi- 
nato tipo. Eccovi un frammento di pro- 
gramma che dichiara una funzione che ri- 
torna un intero, il prodotto di due argo- 
menti interi: 


/* una funzione per moltiplicare due numeri */ 


int mult(a,b) 
int a,b; 


int c; /* una variabile locale */ 


c=a*b; 
return(c); 


] 


La prima linea dichiara una nuova fun- 
zione chiamata mult(), che ha due argo- 
menti, a e b, entrambi interi. Una dichia- 
razione di funzione può essere suddivisa 
in diverse parti. Prima, il tipo della funzione. 
Qui, noi abbiamo utilizzato ’ int’. Se nes- 
sun tipo viene dichiarato, il C assume che 
la nuova funzione sia di tipo ’ int’. Secon- 
da, il nome della funzione, ’ mult ’. Tutte 
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le dichiarazioni delle funzioni hanno un’in- 
sieme di parentesi, sia che la funzione ab- 
bia argomenti oppure no. Questa funzione 
ha due argomenti. I tipo di ciascun argo- 
mento presente tra le parentesi deve ve- 
nir dichiarato prima della parentesi graffa 
aperta. La parentesi graffa aperta indica 
al compilatore l’inizio del codice della fun- 
zione. 

La linea dopo la parentesi graffa aperta 
dichiara una variabile locale chiamata c. 
Se voi conoscete il Pascal, le variabili lo- 
cali in C lavorano nello stesso modo che 
in Pascal, tenendo a mente pero’ la restri- 
zione che le funzioni non possono essere 
nidificate in C. Se voi, invece, non cono- 
scete il Pascal, una variabile locale è una 
variabile a cui non si può accedere da 
un'altra procedura o funzione in un pro- 
gramma, anche se un'altra funzione di- 
chiara una variabile locale con lo stesso 
nome. Il valore di una variabile locale è 
conosciuto solamente durante l’esecuzio- 
ne di una variabile. AI termine dell’esecu- 
zione della funzione, la variabile locale 
scompare, e la memoria che essa ha uti- 
lizzato vien riutilizzata. 

Il’c= a *b' dovrebbe essere chiaro, 
qualsiasi linguaggio conosciate. La linea ’ 
return(c); * rappresenta la fine della fun- 
zione mult(). Il valore ' c ’ viene ritornato 
alla funzione che ha chiesto di utilizzare la 
funzione mult(. Vediamo ora un program- 
ma completo in C che utilizza la funzione 
mult() descritta sopra. 


# include “stdio.h” 

I* una funzione per moltiplicare due numeri */ 
int mult(a,b) 

int a,b; 


{ 


int c; /* una variabile locale */ 


c=a*b; 
return(c); 


} 


I* Tutte le variabili dichiarate all’esterno delle 
dichiarazioni della funzione sono variabili 
globali, che possono essere utilizzate da 
tutte le funzioni 

*j 

int t; /* una variabile globale */ 


main() 


{ 


int 1,8; /* variabili locali */ 


r= 9; 

s=4j 

t = mult(r,s); 

printf(Il risultato e' %d\n”,t); 


In questo programma, la funzione 
main() chiama mult() con i valori memoriz- 
zati in'r'e’s’. Ipotizzando che’ r' 
contenga 3 e’ s’ contenga 4, la funzione 
mult() ritornera'’ il valore 12. All’interno del- 
fa funzione main() il valore 12 verrà me- 
morizzato nella variabile globale di main() 
chiamata ’ 1”. 

Un programmatore spiegherebbe cio’ 
che è accaduto dicendo che la funzione 
mult() è stata * chiamata ’ dalla funzione 
main() e il valore 12 e' stato ’ ritornato ' a 
main(). Poinché il C e' basato su funzioni 
e chiamate di funzioni, i programmatori 
spesso utilizzano queste espressioni. Le 
espressioni ' chiamata ' e ' valore di ritorno 
' alludono alla struttura fondamentale del 
C. Entrambe le espressioni vengono uti- 
lizzate nello stesso contesto per program- 
mi in linguaggio macchina. E ora a main(). 

La dichiarazione della funzione main() 
non ha argomenti, e nessun tipo specifico 
vene dichiarato, in questo modo main() ri- 
tornera’ un * int *. Main() e' una funzione 
speciale. Quando il programma C viene 
avviato dal sistema operativo, main() è la 
prima funzione che viene eseguita. A parte 
questo, main() non è in alcun altro modo 
differente dalle altre funzioni C. 

Ma ritorniamo alle veriabili. L'opposto di 
locale è globale. Le variabili globali sono 
tutte quelle variabili che vengono dichia- 
rate all’esterno di tutte le funzioni del pro- 
gramma. D'altra parte le funzioni globali 
vengono dichiarate nello stesso modo del- 
le variabili locali. La sintassi è la stessa: 
prima il tipo - int, per esempio -, quindi i 
nomi delle variabili, separati da virgole, se 
ce ne sono più di una, e per finire la ter- 
minazione ’ ; ’. Le variabili globali possono 
venire lette e modificate da qualsiasi fun- 
zione del programma. La maggior parte 
dei programmi presentano una mescolan- 
za di variabili locali e variabili locali. Le 
variabili vengono utilizzate per calcoli in- 
termedi, dal momento che scompaiono 
quando la funzione termina. Le variabili 
globali vengono utilizzate per i dati piu' 
permanenti, e per quei dati che diverse 
funzioni possono avar necessità di utiliz- 
zare. Se una funzione dichiara una varia- 
bile locale con lo stesso nome di una va- 
riabile globale, fa variabile focale ha la pre- 
cedenza. 

Nel nostro prossimo incontro approfon- 
diremo l’utilizzo del preprocessore, e co- 
me dichiarare altri tipi di variabili. Ci intro- 
durremo nell'argomento fondamentale 
dell'O considerandone le funzioni a di- 
sposizione. E forse ci diletteremo con le 
funzioni speciali di Amiga per le creazione 
di window. 
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Come si programma 
in Assembly 





Il primo passo per realizzare un pro- 
gramma è, naturalmente, sedersi e pen- 
sare con calma a cosa si deve fare; è 
consigliabile poi scarabocchiare una pri- 
ma versione del programma su carta. Si 
può quindi passare alla fase di editing: con 
l'ausilio di un qualungue editor, come il 
comando ED del CLI, si digita il program- 
ma e si salva il testo (anche un word pro- 
cessor va bene, purché capace di salvare 
in ASCII). Se si decide di usare ED biso- 
gna entrare in CLI, richiamare l'editor di- 
gitando ED nomesorgente (dove nome- 
sorgente è il nome che si decide di asse- 
gnare al testo, noto in gergo programma- 
torio come codice sorgente) e, dopo aver 
inserito tutto il testo, salvarlo con ESC X. 
Bisogna quindi convertire il testo così ot- 
tenuto in un programma in linguaggio 
macchina; questa operazione, che nel- 
l'ambito dei linguaggi evoluti è svolta da 
un interprete o da un compilatore, richiede 
invece nel nostro caso un assemblatore 
(più diffusamente noto come assembler). 
Ne esistono di molti tipi e in questa serie 
di articoli verrà impiegato il macroassem- 
bler standard prodotto dalla Metacomco; 
gli altri assembler possono differirne nel- 
l'uso delle macro, delle label locali (nn$) e 
delle direttive di assembly come CNOP 0,2 
che serve ad allineare il programma a in- 
dirizzo pari: se quindi avete un assembler 
diverso leggete il relativo manuale. Se in- 
vece avete lo stesso assembler potete ri- 
chiamarlo, sempre da CLI, con ASSEM 
nomesorgente -O nomeoggetto, dove 
quest’ultimo parametro è il nome con cui 
desiderate battezzare il programma as- 
semblato, generalmente noto come codi- 
ce oggetto. Occorre infine linkare il tutto 
con il comando ALINK nomeoggetto TO 
nomedefinitivo; ALINK si trova, assieme ad 
ASSEN, nella directory c del disco dell’as- 
sembler e se il CLI ha qualche difficoltà 
nel trovarlo dovrete specificare il pathna- 
me completo (ASSEM-DEVEL:c/ASSEM e 
ASSEM-DEVEL:c/ALINK) quando li attiva- 
te. Dopo tutta questa procedura avrete 
ottenuto un file chiamato nomedefinitivo 
che può essere mandato in esecuzione da 
CLI semplicemente digitandone il nome. 
Altri tipi di assembler possono avere l'e- 
ditor e il linker incorporati (caratteristica 
che fece la fortuna del TurboPascal), allo 
scopo di semplificare la vita del program- 
matore. | possessori del sopracitato as- 
sembler della Metacomco sono vivamente 
consigliati di usare estesamente il RAM 
Disk e le sequenze di comandi in base alla 
propria esperienza individuale, per non e- 
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stenuare in misura eccessiva il drive e la 
propria pazienza. 

Se il vostro programma non funziona 
esiste un'ampia gamma di tool per il de- 
bugging come monitor e disassembler (in 
genere presenti nello stesso package); il 
primo vi consente di controllare da vicino 
lo stato dei registri del processore e delle 
locazioni di memoria durante l’elaborazio- 
ne, permettendo di inserire dei breakpoint 
(istruzioni di stop temporaneo) nel pro- 
gramma o di eseguire un'istruzione alla 


sE 













volta (tracing); il secondo riconverte qua- 
lunque codice oggetto in qualcosa di ab- 
bastanza simile al codice sorgente origi- 
nario, anche se si perdono tutte le label. 





Struttura di una linea 





L'Assembly non prevede l’uso del mul- 
tistatement, cioè della possibilità di inserire 
più comandi in una stessa riga. Ogni linea 
di programma possiede una struttura ben 
precisa e può essere pensata come sud- 
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Seconda puntata del corso di programmazione 
sul linguaggio Assembly MC68000, 
il linguaggio macchina dell’Amiga 


divisa in campi, la lunghezza di ognuno 
dei quali può però variare da linea a linea. 
I campi sono quattro: label, istruzione, o- 
perandi e commento. Una label (etichetta) 
è una corta stringa alfanumerica usata per 
marcare un punto del programma, come 
riferimento per i salti e per la manipolazio- 
ne delle variabili; è importante notare che 
le label esistono solo per l'assemblatore, 
non per il microprocessore. Se a esempio 
si contrassegna un punto del programma 
con una label e poi in un altro punto si 
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inserisce un'istruzione di salto a quella eti- 
chetta l'assembler sostituirà alla label, nel- 
l’istruzione di salto, un numero che rap- 
presenta l'indirizzo di memoria a cui sal- 
tare. Il microprocessore ragiona sempre in 
termini di indirizzi numerici: le label sono 
comode per gli esseri umani e per questo 
motivo l'assembler le adotta, converten- 
dole poi in numeri e indirizzi al momento 
di generare il codice oggetto. Il campo 
della label può essere vuoto. 

Il campo successivo, quello dell'istru- 


zione, non può mai essere nullo e deve 
contenere il nome dell'istruzione stessa, 
mentre gli operandi, se presenti, devono 
essere inseriti nel campo successivo, se- 
parati l'uno dall'altro da una virgola (non 
possono esservene più di due). Il com- 
mento finale è opzionale. Si può, se lo si 
desidera, riservare un'intera linea a scopo 
di commento, inserendo nella prima co- 
lonna un carattere particolare che in ge- 
nere è un asterisco ma che può in effetti 
variare da assembler ad assembler. | vari 
campi devono essere separati da almeno 
uno spazio; questo significa che anche se 
in una linea non c'è alcuna label occorre 
comunque lasciare almeno uno spazio pri- 
ma di digitare il nome dell’istruzione, in 
modo da non confondere l'assembler. 





Byte, word e long word 





I registri del 68000, come illustrato nella 
scorsa puntata, sono a 32 bit, ossia sono 
delle long word. Nonostante ciò, non sem- 
pre il processore esegue calcoli con 32 bit: 
per motivi di ordine pratico ci si limita spes- 
so a 16 oppure 8 bit. La lunghezza dei 
dati su cui si opera non è intrinseca al dato 
stesso ma deve essere specificata in ogni 
istruzione. Per esempio esistono tre forme 
dell'istruzione ADD: ADD.B, ADD.W e AD- 
D.L che sommano rispettivamente numeri 
a 8, 16 e 32 bit. Naturalmente B, W edL 
significano rispettivamente byte, word e 
long word. L'istruzione ADD.B D1,D2 
somma gli otto bit meno significativi di D1 
e D2, ponendo il risultato negli otto bit 
meno significativi di D2. | rimanenti 24 bit 
di D2 non vengono alterati; eventuali riporti 
da e verso il nono bit vengono troncati 
senza pietà. 

Quando non è presente alcun suffisso 
l'assembler parte solitamente dal presup- 
posto che esista un .W sottinteso; in altre 
parole ADD D1,D2. significa ADD.W 
D1,D2. 

Quando si lavora con i registri occorre 
tenere presente che ogni operazione su 
byte e word agisce sempre sulla parte 
meno significativa del registro coinvolto. | 
registri indirizzi si comportano in maniera 
alquanto originale: per motivi tecnici è vie- 
tato operare su di loro con una lunghezza 
di soli otto bit; se si tenta di scrivervi, som- 
marvi o sottrarvi un numero a soli 16 bit 
questo viene automaticamente esteso a 32 
bit e l'operazione coinvolge poi l’intero re- 
gistro. Esempio: ADD.B #10,A0è illegale, 
ADD.W #10,A0 e ADD.L #10,A0 agisco- 
no entrambe su 32 bit. L'unica eccezione 
a questa regola è costituita dalle istruzioni 
ADDQ.W #n,An e SUBQ.W #n,An che 
agiscono sulla sola word inferiore di An. 
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Questa è un'importante eccezione che è 
opportuno ricordare, in quanto capita so- 
vente di incrementare o decrementare un 
registro indirizzi con ADDQ e SUB, con 
l'intenzione di agire su long word, e di di- 
menticare il .L nella illusoria consapevo- 
lezza che tutte le operazioni sui registri in- 
dirizzi avvengano a 32 bit. ll bug che ne 
deriva colpisce sporadicamente (solo 
quando si verifica un riporto da o verso la 
word superiore, che resta invece inaltera- 
ta) ed è quindi assai arduo da snidare se 
non se ne sospetta l’esistenza. Questo bug 
è così sfuggente che non è troppo raro 
trovarlo addirittura in qualche sistema o- 
perativo, come ha potuto accertare l'au- 
tore dell'articolo mentre, armato di disas- 
sembler, passava al setaccio la ROM del 
suo QL. 


I modi di indirizzamento 


Abbiamo visto in precedenza come l'i- 
struzione ADD D1,D2 sommasse il conte- 
nuto di D1 al registro D2; in questo caso 
l'istruzione fondamentale è ADD mentre 
D1 e D2 sono i suoi operandi. Che cosa 
avremmo potuto utilizzare in luogo di DI 
e D2? In altri termini, quali sono i possibili 
operandi su cui può agire l'istruzione 
ADD? 

Nell'ambito di un linguaggio evoluto 
questa domanda non avrebbe senso: o- 
vunque un'istruzione richieda un parame- 
tro di un certo tipo è possibile utilizzare una 
qualunque espressione che, una volta cal- 
colata, fornisca un valore del medesimo 
tipo. Per esempio in AmigaBASIC il co- 
mando PSET (x,y) traccia un punto alle 
coordinate x e y, dove questi due para- 
metri possono essere costituiti da espres- 
sioni a valore numerico di arbitraria lun- 
ghezza e complessità. Nel linguaggio As- 
sembly invece non si può mai sostituire un 
parametro con un'espressione, a meno 
che il parametro non sia una costante (cioè 
un numero), che può essere sostituita da 
una espressione formata da costanti, la 
quale verrà calcolata in fase di assemblag- 
gio e non in fase di run-time. A esempio 
ADD #13,D5 può essere scritto come 
ADD #8+5,D5 mentre ADD D1+D0,D2 
non ha senso in Assembly. Del resto, se 
fosse sufficiente usare il segno '+’ per 
eseguire un'addizione non ci sarebbe al- 
cun bisogno dell'istruzione ADD. 

In Assembly esiste una ristretta gamma 
di forme che un'espressione puo' assu- 
mere perché sia lecito usarla come ope- 
rando, e quel che è peggio è che non tutte 
queste forme sono ammesse in ogni istru- 
zione. In un linguaggio evoluto non è pos- 
sibile stimare esattamente quanta memo- 
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ria occupa una linea di programma, ma 
in Assembly sì: l'occupazione di memoria 
di una singola istruzione è sempre pari a 
due byte più il numero di byte aggiuntivi 
richiesti da ognuno degli operandi. La ta- 
bella 1 mostra le espressioni consentite, 
chiamate modi di indirizzamento, assieme 
al loro consumo di memoria; passiamole 
brevemente in rassegna: 

#n: l'operando è il numero n. Se l'i 
struzione è veloce (quick), ossia se il suo 
nome termina per Q (MOVEQ, ADDQ, SU- 
BQ) l’uso di # n come primo operando non 
richiede byte aggiuntivi. 

Dn: l’operando è il registro dati Dn, o 
meglio lo è il dato contenuto in Dn. 

An: come sopra, con la differenza che 
il registro coinvolto è un registro indirizzi. 
La distinzione è sensata in quanto molte 
istruzioni operano con una sola delle due 
classi di registri. 

(An): questo modo di indirizzamento e i 
seguenti sono indiretti. L’operando è la 
locazione di memoria puntata da An, os- 
sia il cui indirizzo è contenuto in An. . 

(An)+: come sopra, ma con l'aggiunta 
del postincremento: dopo che il dato pun- 
tato da An è stato utilizzato, An viene in- 
crementato di un numero pari alla lunghez- 
za del dato in questione. 

-(An): come sopra, ma con il predecre- 
mento: prima che il dato venga utilizzato, 
An viene decrementato della lunghezza 
del dato. 

d16(An): l'’operando è la locazione di 
memoria il cui indirizzo si ottiene somman- 
do il numero d16 ad An. La costante d16, 
detta displacement o spiazzamento, è a 16 
bit. Sarebbe forse stato più logico indicare 
questo modo come (An+d16), ma que- 
sto formato non è standard e non viene 
riconosciuto dagli assemblatori. 

d$8(An,i): come sopra, ma per ottenere 
l'indirizzo occorre sommare anche i, detto 
registro indice, che può essere un qua- 
lunque registro, sia dati che indirizzi. Lo 
spiazzamento ammesso è a soli otto bit, 
mentre l’indice i può essere inteso sia co- 
me word che come long word a seconda 
del suffisso che gli viene posposto. 

d16(PC): l'operando è la locazione di 
memoria il cui indirizzo si ottiene somman- 
do d16 al program counter. Questo modo 
di indirizzamento è spesso impiegato per 
manipolare dati e variabili incorporati nel 
programma stesso e il cui indirizzo è quindi 
vincolato alla posizione che il programma 
occupa nella RAM. In tal modo il program- 
ma che si ottiene è position independent, 
cioè indipendente dalla posizione; ciò si- 
gnifica che il programma è in grado di 
trovare i suoi dati in qualunque zona di 
memoria venga caricato. Questo argo- 





mento sarà ripreso in futuro. Purtroppo i 
modi di indirizzamento relativi al program 
counter funzionano solo per leggere dati 
dalla memoria e non per scriverveli, a cau- 
sa di una assai discutibile scelta dei pro- 
gettisti. 

d8(PC,i): come sopra, con l’aggiunta di 
un registro indice. Non molto usato a cau- 
sa della limitazione imposta sul displace- 
ment, serve a manipolare tabelle di dati 
incluse nel programma. 

a16: l’operando è la locazione il cui in- 
dirizzo è il numero a16, che risulta quindi 
essere un indirizzo a 16 bit. Questo modo 
di indirizzamento può essere usato solo nei 
32K inferiori di RAM. 

a32: come sopra, ma l'indirizzo è a 32 
bit e consente di raggiungere qualunque 
locazione di memoria. Quando si specifica 
un indirizzo è l’assembler a decidere se 
considerarlo un a16 o un a32. 

range: utilizzato unicamente dall’istru- 
zione MOVEM, è un insieme di registri. Per 
esempio, D0-D3/D5/A1/A3-A5 è un range 
che comprende i registri DO, D1, D2, D3, 
D5, A1, A3, A4 e AS. 

label: utilizzata nei salti, per specificare 
il punto a cui sì salta. Tramite le label si 
può anche manipolare un dato incorporato 
nel programma: in questo caso l’assem- 
bler convertirà automaticamente la label in 
un a16, un a32, un d16(PC) o in un 
d8(PC.), a seconda dei casi, come si ve- 
drà meglio in seguito. 

Tutti gli indirizzi, gli indici e gli spiazza- 
menti sono intesi come numeri dotati di 
segno. 


Alcune istruzioni 


L’istruzione più usata in ogni program- 
ma è MOVE, che, come si può arguire dal 
nome stesso, sposta dati da un punto a 
un altro e può essere considerata un'istru- 
zione di assegnazione, simile all’arcaico 
LET di alcuni dialetti BASIC. Il comando 
MOVE richiede due operandi che devono 
essere separati, com'è d'uso in Assembly, 
da una virgola; il primo di essi, detto sor- 
gente, fornisce il valore da assegnare al 
secondo, detto destinazione. Per esempio 
MOVE.W D1,D2 copia la word meno si- 
gnificativa di D1 in quella di D2, senza al- 
terarne la metà superiore; MOVE.L D0,A3 
assegna il contenuto di DO ad A3; MOVE.B 
#10,D6 assegna il valore dieci al byte in- 
feriore di D6 mentre MOVE.B 10,D6 legge 
il byte di memoria all'indirizzo dieci e lo 
pone in DE (attenti al '#' !). MOVE e' l'i- 
struzione che consente la massima libertà 
nella scelta dei modi di indirizzamento per 
gli operandi; quasi ogni combinazione di 
modi è lecita. La maggior parte delle altre 
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istruzioni consente tale libertà per uno solo 
dei due operandi, quello sorgente o quello 
destinazione, a scelta del programmatore, 
mentre l’altro parametro può variare in un 
ambito molto limitato (solitamente #n e 
Dn, ma non sempre). A esempio ADD.W 
D1,D1, ADD.W 16(A3),D1 e ADD.W 
D1,16(A3) sono lecite mentre ADD.W 
16(A3),16(A3) non lo è; MOVE.W 
16(A3),16(A3) è invece perfettamente le- 
cita, per quanto improduttiva in questo ca- 
so particolare data la coincidenza dei due 
operandi. Tutto questo può sembrare un 
po' complicato ed eccessivamente mne- 
monico, ma l’esperienza insegna che il 
programmatore medio apprende in breve 
tempo con l'esercizio le combinazioni |- 
struzione-operandi proibite e le rare volte 
che commette un errore l’assembler stes- 
so lo segnala prontamente. 

Esiste poi una piccola gamma di istru- 
zioni di uso comunissimo che non consen- 
tono quasi nessuna libertà nella scelta dei 
parametri: a esempio MOVEQ #n,Dn, che 
richiede assolutamente un dato immediato 
(a otto bit, che viene esteso a 32, cosa 
questa atipica per un MOVE) come sor- 
gente e un registro dati come destinazione. 
Una curiosità: la Q sta per quick, ossia 
veloce, ìn quanto la suddetta istruzione 
consuma poca memoria ed è caratteriz- 
zata da un basso tempo di esecuzione; in 
altre parole essa è di uso molto pratico. le 


istruzioni che limitano fortemente la scelta 
degli operandi sono tra le più usate; ac- 
cade quindi qualcosa di simile al modo in 
cui alcuni linguaggi umani, come l'italiano 
e l'inglese, gestiscono i verbi: tra di essi, 
quelli irregolari sono quasi sempre i più 
usati. 

Un operando capace di assumere qua- 
lunque forma viene chiamato indirizzo ef- 
fettivo (effective address) e abbreviato in 
ea; per esempio la forma generale dell’;- 
struzione di trasferimento è MOVE ea,ea, 
per sottolineare il fatto che non esiste quasi 
nessuna limitazione nella scelta dei modi 
di indirizzamento; l'istruzione di addizione 
può invece assumere una delle seguenti 
forme: ADD ea,Dn - ADD ea,An - ADD 
#n,ea - ADD Dn,ea. Anche l’addizione, 
come l'assegnazione, possiede una forma 
‘irregolare’ veloce, che può assumere solo 
la forma ADDQ #n,ea dove n deve es- 
sere compreso tra uno e otto (viene però 
esteso a 8, 16 o 32 bit in base al suffisso 
.B, .W o .L). Questa simpatica istruzione è 
l'equivalente 68000 della meno flessibile 
INC di altri microprocessori. 





Un piccolo esempio 





Fino a questo momento non sono an- 
cora state presentate sufficienti nozioni da 
consentire la realizzazione di un vero e 
proprio programma. Si può però prendere 


in considerazione qualche microscopico 
esempio. ll problema è il seguente: esisto- 
no tre interi a 16 bit in memoria agli indi- 
rizzi consecutivi 100000, 100002 e 
100004, che per brevità indicheremo co- 
me A, B e C; bisogna porre nel terzo la 
somma dei primi due. Esistono svariati mo- 
di per farlo e ne prenderemo in conside- 
razione alcuni. 


PROGRAMMA 1 PROGRAMMA 2 PROGRAMMA 3 


MOVE A,DO MOVE A,DO MOVE.L #A,A0 
MOVE B,D1 ADD B,DO MOVE (A0) + ,DO 
ADD D1,DO MOVE DO0,C ADD (A0)+,DO 
MOVE DO,C MOVE DO,(A0) 


Il primo metodo è il meno efficiente 
(forse il compilatore di un linguaggio evo- 
luto lo sceglierebbe), il secondo è il più lo- 
gico e intuitivo mentre il terzo, sfruttando 
il fatto che i dati in memoria sono conse- 
cutivi, è il più compatto e veloce. Non as- 
semblate realmente questi programmi, se 
lo faceste otterreste una Guru Meditation 
dovuta all'assenza di un'istruzione di ritor- 
no e alla arbitraria e distruttiva alterazione 
della word 100004. Se anche per assurdo 
tutto funzionasse non vedreste comunque 
nulla sullo schermo. Prossimamente, 
quando sarà stato illustrato l’uso dei flag 
e delle istruzioni di controllo, sarà possi- 
bile realizzare qualche programma vero, 
anche se breve. 














= 
SIMBOLO — N. BYTE NOME 
QBWL 
#n 0224 immediato 
DN 1000 diretto a registro dati 
An 1000 diretto a registro indirizzi 
(An) 1000. indiretto a registro 
(An) + 1 0 0 0. indiretto a registro con postincremento 
—(An) 100 0. indiretto a registro con predecremento 
di6(An) {1 22 2. indiretto a registro con offset 
dB(An,i) / 222. indiretto a registro indicizzato 
d16(PC) 1 22 2. relativo al program counter 
d8(PC,i) / 2 2 2. relativo al program counter, indicizzato 
a16 1 222. assoluto corto 
a32 / 444 assoluto lungo 
range 1 E 22. lista di registri 
label (0,2,4) label 
Se una label segue l'istruzione Bcc, DBcc e BSR allora viene convertita in un offset a 16 bit (n.byte= 2) 
se invece segue l’istruzione Bcc.S o BSR.S allora viene convertita in un offset a 8 bit (n.byte = 0) altrimenti: 
label viene convertito in a16 o a32 (n.byte= 2,4) 
. label (PC) viene convertito in d16(PC) (n.byte= 2) 
Tabella 1: modi label (PC,i) viene convertito in d8(PC,i) (n.byte=2) 
di indirizzamento 
del 68000. 
75 
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di Paolo Russo 


La strutturazione è una componente 
molto importante di ogni linguaggio e la 
trattazione di tale argomento, già iniziata 
in precedenza, viene adesso conclusa 
con la presentazione di ulteriori informa- 
zioni dì carattere eminentemente pratico, 
più che teorico, riguardanti sia le strutture 
di controllo che i subprogram. Viene poi 
discusso il problema della gestione della 
memoria dell’Amiga dal punto di vista del 
programmatore AmigaBasic; infatti, al 
contrario della maggior parte delle mac- 
chine a otto bit e di molte di quelle a se- 
dici bit, che non soffrono del problema 
della condivisione delle risorse tra più pro- 
grammi, l’Amiga possiede un sistema o- 
perativo multitasking che consente sì a 
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più di un programma di girare contempo- 
raneamente sulla macchina ma obbliga i 
programmi stessi ad attenersi a una se- 
rie di regole per evitare che due di loro 
tentino dì usufruire della stessa zona di 
memoria. Protocolli simili esistono anche 
per quanto riguarda la condivisione della 
tastiera, del drive e di parecchie altre ri- 
sorse, ma l’interprete AmigaBasic o il si- 
stema operativo solitamente si occupano 
autonomamente di questi dettagli senza 
scomodare il programmatore. La gestio- 
ne della RAM è invece lasciata agli esseri 
umani, essendo spesso la quantità di me- 
moria disponibile un fattore critico per il 
funzionamento di un programma, dal mo- 
mento che, al contrario di altre risorse co- 





me la tastiera e il drive, presenta spesso 
la seccante tendenza a esaurirsi. 





Le strutture di controllo 





L'AmigaBasic ha in comune con il Ba- 
sic standard il classico e universalmente 
conosciuto ciclo FOR-NEXT, sul quale non 
e' opportuno soffermarsi a causa della sua 
eccessiva fama. Il ciclo WHILE-WEND, 
molto di moda recentemente e spesso im- 
piegato anche a sproposito, è una gene- 
ralizzazione del ciclo FOR-NEXT dal quale 
differisce nella condizione di uscita dal 
loop; mentre il ciclo FOR-NEXT si inter- 
rompe solo quando il valore di una certa 
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variabile supera un certo limite, il ciclo 
WHILE-WEND prosegue fintantoché la 
condizione (formalmente simile a quella 
che segue un IF) specificata dopo la pa- 
rola WHILE si mantiene vera. Ciò significa 
che la linea WHILE 1=1: PRINT”X”: 
WEND scriverà un numero infinito di X 
mentre la linea WHILE 1=2: PRINT”X”: 
WEND non ne stamperà nemmeno una. 
La coppia WHILE-WEND consente anche 
di emulare quella FOR-NEXT; le seguenti 
due linee sono infatti equivalenti: 


FOR 1=1 TO 10: NEXT 1=1: WHILE k=10: 
1=1+ 1: WEND 


S'intende che il contrario non è possi- 
bile: un generico WHILE-WEND non è so- 
stituibile con un FOR-NEXT. Qualcuno si 
chiederà che scopo abbia tentare di usare 
una struttura al posto di un’altra. Natural- 
mente, come risulta evidente dall’esempio 
riportato poco sopra, il rmpiazzamento di 
un ciclo FOR-NEXT con uno WHILE- 
WEND non è mai conveniente in termini 
sia di praticità che di leggibilità, ma un ri- 
spettabile numero di persone in vena di 
semplificazioni ritengono che due strutture 
al posto di una siano ridondanti ed evitano 
sistematicamente il FOR-NEXT nei loro 
programmi, tentando nel contempo con 
tutte le loro energie di convincere chiun- 
que altro che ciò sia indice di buona pro- 
grammazione. Il lettore è consigliato di non 
lasciarsi trasportare ciecamente dai flussi 
e riflussi della moda, esistenti nella pro- 
grammazione come in molte altre attività 
umane, ed è altresì vivamente incoraggia- 
to alla creazione di uno stile personale, 
soprattutto se non desidera che l’eccitante 
attività programmatoria si trasformi rapida- 
mente in una grigia routine. 

AI classico IF-THEN(-ELSE) è stato af- 
fiancato il più flessibile IF-THEN (-ELSEIF- 
THEN) .... -ELSEIF-THEN) (-ELSE) -END IF 
che consente di eseguire in maniera con- 
dizionata interi blocchi di linee alla volta, 
che possono a loro volta contenere altri IF. 
L'interprete identifica la variante di IF (clas- 
sica o moderna) che il programmatore in- 
tende usare basandosi sulla presenza o 
meno di istruzioni in linea subito dopo il 
THEN; se infatti tale parola chiave è se- 
guita da una o più istruzioni l'interprete 
decide che si tratta di un IF classico, a li- 
nea singola; se al contrario dopo il THEN 
non si scrive niente deve evidentemente 
trattarsi della variante evoluta multilinea e 
l’AmigaBasic parte dal presupposto che le 
linee successive debbano essere eseguite 
solo se la condizione specificata risulta ve- 
ra. Naturalmente è necessaria l’esistenza 
di una parola chiave per contrassegnare 
la fine del blocco di linee da eseguire con- 
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dizionatamente; tale parola, che deve oc- 
cupare un'intera linea, è END IF. La pa- 
rola ELSE, che esige anch'essa di non 
essere preceduta o seguita da alcunché, 
marca invece l’inizio delle linee che devo- 
no essere eseguite solo se la condizione 
è falsa. Al contrario delle parole IF, THEN 
ed END IF, la cui presenza è obbligatoria, 
l'uso di un blocco introdotto da ELSE è 
opzionale, e altrettanto può dirsi per EL- 
SEIF, utile in caso di scelte multiple. La 
parola ELSEIF, che richiede una condizio- 
ne e un THEN dopo di sè, introduce un 
blocco di istruzioni che verranno eseguite 
solo se l’ultima condizione specificata è 
vera e tutte le precedenti sono false. Ec- 
cone un esempio: 


IF A=1 THEN 
PRINT”UNO” 
ELSEIF A=2 THEN 
PRINT“DUE” 
ELSEIF A=3 THEN 
PRINT”TRE” 
ELSE i 
PRINT”NON È UNO, DUE O TRE” 
END IF 


L’indentazione, da qualcuno chiamata 
dentellatura, ossia l'abitudine di lasciare 
all'inizio di ogni riga uno spazio variabile 
in modo da evidenziare i blocchi, non è 
obbligatoria ma molti la consigliano per 
motivi stilistici, trovandola evidentemente 
molto estetica o particolarmente giovevole 
alla chiarezza del listato. Purtroppo quan- 
do si esce dall'ambito dei programmi ba- 
nali accade che all’interno di ogni singola 
procedura il numero di IF, FOR e WHILE 
concatenati sia solitamente abbastanza e- 
levato da far sì che alcune parti del listato 
dimostrino una spiccata tendenza a uscire 
dall'area visibile dello schermo a causa 
della spaziatura iniziale. 

L'AmigaBasic possiede anche il GOTO, 
ma tale direttiva è stata implementata nella 
presente release dell'interprete in una for- 
ma non troppo flessibile; è infatti proibito 
saltare dentro e fuori da una struttura tra- 
mite GOTO, cosa invece consentita da 
qualche altro computer. Non è quindi pos- 
sibile saltar fuori neppure da un banalis- 
simo ciclo FOR-NEXT prima del suo esau- 
rimento: se si desidera farlo occorre asse- 
gnare il valore limite alla variabile indice e 
saltare al NEXT, cosa questa fattibile ma 
indubbiamente alquanto scomoda. 


I dati dei subprogram 


È stato detto nella scorsa puntata che 
le variabili di un subprogram esistono solo 
al suo interno, eccezion fatta per quelle 





dichiarate come SHARED che sono con- 
divise con il programma principale. La pa- 
rola STATIC che compare nella prima li- 
nea di ogni subprogram ha il seguente si- 
gnificato: tutte le variabili locali al subpro- 
gram sono statiche, ossia il loro contenuto 
non viene perso tra una chiamata e l’altra 
del subprogram stesso. 

In realta’ la presenza della parola STA- 
TIC nella definizione di un subprogram è 
obbligatoria e ciò significa che l’AmigaBa- 
sic non supporta le variabili locali non sta- 
tiche. Quest'ultimo tipo di variabile è utile 
per limitare l'occupazione di memoria e 
per implementare algoritmi ricorsivi, cioè 
per consentire che un subprogram possa 
richiamarsi da solo; ciò in AmigaBasic non 
è quindi possibile, a meno di ideare un 
meccanismo che salvi le variabili prima di 
ogni chiamata. Esiste tuttavia un ulteriore 
inconveniente legato alla staticità delle va- 
riabili: com'è possibile utilizzare degli ar- 
ray locali in un subprogram? Se dimen- 
sioniamo l’array in questione nel program- 
ma principale perdiamo il vantaggio della 
località, oltre a essere costretti a dichiararlo 
SHARED; se il DIM compare invece all’i- 
nizio del subprogram i guai iniziano quan- 
do il suddetto viene richiamato per la se- 
conda volta e l'interprete si trova nella sec- 
cante situazione di dover dimensionare un 
array già esistente. Ciò è illegale in Ami- 
gaBasic e provoca il blocco del program- 
ma con segnalazione di errore. Come ri- 
solvere questo problema? 

Sfogliando il manuale qualcuno avrà no- 
tato l'esistenza di un utile comando chia- 
mato ERASE che cancella un array elimi- 
nandolo dalla memoria come se non fosse 
mai esistito. Si può quindi pensare di in- 
serire questo comando alla fine di un su- 
bprogram in modo che alla successiva 
chiamata l’array, assente, possa essere ri- 
dimensionato. Per qualche strano motivo 
questo trucco non sembra funzionare mol- 
to bene; probabilmente il comando ERA- 
SE è stato creato appositamente per gli 
array globali e non funziona sempre su 
quelli locali. Comunque, anche se funzio- 
nasse regolarmente sarebbe un metodo 
troppo inefficiente, in quanto la cancella- 
zione e successivo dimensionamento sono 
operazioni alquanto lente, ed eseguirle o- 
gni volta che il subprogram viene richia- 
mato non sembra essere la soluzione mi- 
gliore. Un trucco più valido consiste nel- 
l'inserzione all’inizio del subprogram di 
una linea come la seguente: 


IF FLAG =0 THEN FLAG = 1:DIM AR(100) 


La prima volta che il subprogram viene 
richiamato le sue variabili non esistono an 
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cora; FLAG vale quindi zero, come tutte 
le variabili non ancora inizializzate. Alla 
suddetta variabile viene quindi assegnato 
il valore uno e l’array viene dimensionato. 
A ogni successiva chiamata del subpro- 
gram la condizione espressa dopo l’lF ri- 
sulterà falsa e non sarà quindi effettuato 
alcun tentativo di dimensionare nuova- 
mente l’array: Se poi all’interno del pro- 
gramma principale viene eseguito un 
CLEAR tutte le variabili spariscono, array 
compreso, ma anche FLAG torna a zero 
e il trucco continua a funzionare. 





Lo statement CLEAR 





L'istruzione CLEAR in ogni versione di 
Basic provoca la cancellazione di tutte le 
variabili, ma in alcuni dialetti essa assume 
un significato piu’ ampio. Nel caso in que- 
stione la suddetta istruzione consente di 
cambiare il modo in cui la RAM viene ri- 
partita tra le sue tre aree fondamentali: lo 
heap, lo stack e il segmento del Basic. Lo 
heap (cumulo) è una sorta di magazzino 
pubblico di memoria inutilizzata al quale 
tutti i programmi attingono secondo le loro 
necessità, dopo aver rivolto una regolare 
richiesta al sistema operativo (a Exec, per 
la precisione); ormai nemmeno i program- 
mi per computer riescono a salvarsi dalla 
burocrazia. Se non altro Exec non insab- 
bia mai le pratiche e si preoccupa di sbri- 
garle nel giro di qualche millisecondo, re- 
spingendole, in un tempo altrettanto bre- 
ve, solo se la memoria è ormai esaurita o 
non possiede le caratteristiche richieste: 
un traguardo di efficienza del tutto fanta- 
scientifico per la burocrazia italiana. Pur- 
troppo certe richieste che devono essere 
rivolte alle sezioni competenti del sistema 
operativo per ottenere determinati risultati 
prevedono la compilazione, da parte del 
programma richiedente, di un vero e pro- 
prio modulo di complessità tale da far in- 
vidia al tristemente noto 740; ma di que- 
sto si tratterà meglio in futuro. Il numero 
che compare nella barra superiore dello 
Workbench indica appunto la quantità di 
memoria ancora disponibile nello heap. 
Ogni programma che gira sull’Amiga pos- 
siede uno stack (pila, catasta) il cui scopo 
è la memorizzazione temporanea di indi- 
rizzi e variabili locali e la cui dimensione 
varia solitamente tra uno e quattro kappa 
di RAM; l'interprete AmigaBasic è esso 
stesso un programma e possiede di con- 
seguenza uno stack. Il segmento Basic è 
quella zona di memoria che l'interprete ha 
sottratto allo heap per destinarla alla me- 
morizzazione del programma Basic e delle 
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sue variabili. La sintassi completa del co- 
mando è CLEAR (,segmento (,stack)), do- 
ve le parentesi indicano, come già in pre- 
cedenza, un parametro che può essere 
omesso. 

L'esperienza insegna che praticamente 
nessuno trova utile alterare la dimensione 
dello stack, mentre molti programmatori 
desiderano aumentare l’esiguo spazio a 
disposizione del Basic, che normalmente 
ammonta a circa 25K. Bisogna innanzitutto 
premettere che non è buona norma asse- 
gnare troppa RAM al segmento lasciando 
al verde lo heap, non solo perché risulte- 
rebbe impossibile il funzionamento in mul- 
titasking di un qualunque altro programma 
assieme all’interprete, ma anche perché 
determinate azioni intraprese da un pro- 
gramma Basic assorbono memoria dallo 
heap; il comando SCREEN per esempio 
definisce un nuovo schermo e preleva dal- 
lo heap la memoria necessaria alla rela- 
tiva pagina grafica. Quando inoltre vengo- 
no eseguite certe operazioni, come lo spo- 
stamento di una finestra con il mouse, il 
computer necessita temporaneamente di 
una certa quantità di RAM per portare a 
termine il compito richiesto e se non la 
trova possono accadere stranezze di va- 
rio genere. 

Il modo più semplice per riservare al 
segmento una certa quantità di RAM con- 
siste nell'eseguire uno statement come 
CLEAR ,100000 (se si desiderano circa 
100K; notate comunque la curiosa quanto 
obbligatoria presenza della virgola). Que- 
sto metodo presenta qualche inconvenien- 
te; il primo consiste nell’impossibilità di al- 
locare ripetutamente più di metà (nel mi- 
gliore dei casi) della memoria disponibile. 
Supponiamo per esempio che su di un 
Amiga inespanso si desideri portare il se- 
gmento a 120K; basta digitare in modo 
diretto CLEAR ,120000 e si è poi liberi di 
creare programmi con array di dimensioni 
veramente notevoli. Quando poi il pro- 
gramma viene salvato e in seguito ricari- 
cato, magari dopo un reset, si scoprirà che 
non funziona più perché l’effetto del co- 
mando CLEAR è svanito, dal momento 
che anche l'interprete è stato ricaricato da 
disco, e non c'è più posto per le variabili. 
Evidentemente è opportuno inserire il 
CLEAR in testa al programma stesso, in 
modo che venga eseguito a ogni carica- 
mento; così facendo, tuttavia, tale coman- 
do verrà eseguito anche a ogni run e ciò 
crea un altro problema, connesso al modo 
in cui l'interprete porta a termine un 
CLEAR. L’AmigaBasic richiederà i 120K 
prima di restituire i vecchi 25K allo heap, 


altrimenti il programma Basic verrebbe 
perso per strada. Per un attimo quindi 'in- 
terprete possiederà 145K. Non c’è niente 
di male in ciò, ma al successivo run |'A- 
migaBasic tenterà di ottenere altri 120K 
prima di mollare i vecchi 120, con esito 
infelice non essendo disponibili 240K di 
memoria. Si può allora ricorrere a un dop- 
pio CLEAR; supponendo che il program- 
main sè (variabili escluse) non richieda più 
di 10K, si può eseguire un CLEAR 
,10000:CLEAR ,120000. In tal modo la 
massima occupazione di RAM in ogni dato 
istante non supera 130K. Esiste poi un ul- 
teriore inconveniente: se l'abbondanza di 
memoria è necessaria non solo per le va- 
riabili, ma per il programma stesso, risulta 
impossibile caricarlo in memoria prima di 
aver eseguito il CLEAR, che a sua volta 
entrerebbe in azione solo dopo il carica- 
mento: il classico serpente che si morde 
la coda. L’unica via di uscita consiste nella 
creazione di un programma di lancio come 
il seguente: 


CLEAR ,5000 
CLEAR ,120000 
LOAD “nomeprogramma”,R 


Questo microscopico programmino, se 
lanciato in esecuzione, riserva al Basic la 
quantità desiderata di RAM e subito dopo 
carica il programma vero e proprio, atti- 
vandolo al termine del caricamento (l’o- 
pzione R significa Run). Naturalmente non 
è piu necessario includere in quest'ultimo 
programma istruzioni per allocare memo- 
ria, essendo questo compito già svolto dal 
programma di lancio. 

La funzione FRE(x) consente di cono- 
scere in ogni momento il modo in cui la 
RAM è ripartita; il classico FRE(0) fornisce 
la quantità di memoria ancora libera all'in- 
terno del segmento Basic, FRE(-1) la di- 
mensione dello heap, FRE(-2) la quantità 
di RAM nello stack che non è mai stata 
usata. Ogni volta che la funzione FRE vie- 
ne invocata l'interprete esegue il cosiddet- 
to garbage collecting (alla lettera, raccolta 
di immondizia); tale operazione riordina le 
stringhe presenti in memoria in modo da 
riutilizzare gli interstizi che si formano di 
solito durante la loro manipolazione. 

Una piccola curiosità: anche il comando 
CLEAR del vecchio ZX Spectrum ha la 
capacità di variare la porzione di RAM ri- 
servata al Basic! Chissà quanti altri com- 
puter possiedono questa caratteristica così 
assolutamente non standard associata al 
comando CLEAR? 
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POLINOMI A TRATTI? 


Vediamo come sfruttare al meglio gli 
algoritmi visti nel numero precedente, 
presentando così il concetto di polinomi 
a tratti. 


Analizzeremo poi pregi e difetti delle 
migliorie introdotte fino ad individuare 
quella famiglia di curve detta spline, le cui 
proprietà interesseranno certamente non 
solo chi ha problemi di estrapolazione, ma 
anche tutti coloro che desiderano raccor- 
dare con una “dolce” curva i punti di un 
disegno. 
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Problema di instabilità 





Il problema dell'interpolazione è, come 
abbiamo visto, quello di trovare una fun- 
zione che simuli abbastanza bene un'al- 
tra più o meno nota. 

Vediamo di precisare cosa si intenda 
per “abbastanza bene”: ciò che si richie- 
de alla nostra funzione è che in corrispon- 
denza ad ogni valore dell'incognita x as- 
suma un valore f(x) poco differente da 
quello che assumerebbe la funzione che 
si vuole simulare. 





Non sembri assurdo che si parli di va- 
lore della funzione da interpolare anche 
quando quest’ultima è nota solo in alcuni 
punti: infatti anche se le informazioni 
quantitative si limitano a qualche nodo, 
generalmente ne conosciamo qualitativa- 
mente il comportamento fra un nodo e 
l’altro. Proprio l’idea sull'andamento della 
funzione interpolanda ci mette in guardia 
dalle eventuali anomalie della funzione in- 
terpolatrice. 

La volta scorsa abbiamo visto che, per 
quanto comoda, l’interpolazione polino- 
miale non è affatto esente da ” anomalie 
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comportamentali”. Abbiamo bonariamen- 
te giustificato tale imprevedibile andamen 
to come ribellione del polinomio alla cro- 
cefissione sui nodi. In termini meno sacri- 
leghi possiamo affermare che un polino- 
mio di n-esimo grado può avere n-1 gobbe 
e ventri, che spesso vanno a finire fra i 
nostri nodi causando quelle oscillazioni no- 
te come fenomeno di instabilità di Runge. 

In base a questa analisi (semplicistica, 
ma non per questo sbagliata) possiamo 
concludere che un primo sistema per evi- 
tare, o quanto meno sminuire, l'instabilità 
dell’interpolazione polinomiale sia quello di 
ridurre il grado del polinomio. 





in un senso che nell'altro (per gli amanti 
della formula 1 una cubica presenta una 
chicane) e c'è un punto a curvatura nulla. 

Prima di proseguire ricordiamo che un 
polinomio di n-esimo grado è determinato 
dai valori di n+1 nodi. 





Polinomi a tratti : introduzione 


Abbiamo appena visto che è prudente 
non utilizzare polinomi di grado troppo e- 
levato; capita però spesso di avere un nu- 
mero di nodi molto maggiore di quello che 
ci consente il polinomio che vogliamo uti- 
lizzare. Pensiamo allora di ordinare i punti 
a disposizione secondo le x crescenti: in 


descritta più avanti, che implementa i me- 
todi appena visti. Se la trattazione degli 
algoritmi non fosse stata abbastanza chia- 
ra consigliamo di provare il programma 
Interpola2 leggendo il paragrafo che lo. 
descrive in calce all'articolo. 

Consigliamo di predisporre un'uscita 
grafica per i vostri programmi, in modo 
particolare però questa volta, poiché i gra- 
fici possono consentire un'immediata com- 
prensione del problema. 

Un'altra buona idea è quella di salvare 
(e quindi poter caricare) i dati relativi ai nodi 
sul dischetto per evitare la noia di doverli 
scrivere ogni volta; un sistema più rapido, 
ma solo per fare delle prove, è quello di 





Dall’interpolazione alla computer graphics 
usando i polinomi come pennelli 


di Giovanni Michelon e Luigi Manzo 








Premessa matematica 





Nella speranza che i lettori superstiti alla 
prima puntata di questa serie superino an- 
che lo choc del titolo di questo paragrafo, 
vediamo di introdurre alcuni concetti per 
favorire la comprensione degli algoritmi 
che seguiranno. 

Facciamo intanto notare che spesso si 
confonderà la nozione di funzione con 
quella di grafico di una funzione, cosicché 
diremo retta sottointendendo un polinomio 
di primo grado, o parabola per uno di se- 
condo o cubica per uno di terzo. Il riferi- 
mento al grafico permette però una visione 
geometrica, e perciò più familiare, del pro- 
blema algebrico dell’interpolazione. 

Consideriamo ora una curva (fig.1), pre- 
so un suo punto possiamo immaginare di 
trovare un cerchio di raggio opportuno che 
sia tangente alla curva in quel punto e vi 
si adatti meglio di ogni altro: il reciproco 
della misura del raggio si dice curvatura 
della curva nel punto. Per chiarire meglio 
il concetto di curvatura supponiamo che 
la curva sia una strada che stiamo percor- 
rendo a bordo di un'automobile: giunti al 
punto prescelto blocchiamo lo sterzo, la 
macchina descriverà (burroni ai margini 
permettendolo) una circonferenza il cui 
raggio esprimerà la curvatura cercata. E 
ovvio che se una strada... una curva ha 
tutti i punti a curvatura nulla sarà rettilinea. 

Presa una parabola notiamo che ha cur- 
vatura sempre dello stesso segno, si 
“ sterza” cioè sempre nello stesso verso; 
una cubica invece presenta curvatura sia 
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funzione del valore da estrapolare si scel- 
gono dei nodi contigui in numero oppor- 
tuno e quindi (col programma Interpola 
magari) si procede all’estrapolazione. 

Questo è un metodo senz'altro corretto 
ma piuttosto noioso da effettuare a mano 
più di una volta. Nulla ci vieta però di fare 
una scelta una volta per tutte e poi lasciare 
al calcolatore il compito di arrangiarsi! Ciò 
che ci proponiamo di fare è suddividere il 
nostro insieme ordinato di nodi in un certo 
numero m di sottoinsiemi contenenti cia- 
scuno n+1 nodi: diciamo tratti ugnuno di 
questi sottoinsiemi; ogni tratto avrà in co- 
mune coi tratti adiacenti un nodo (vedi 
fig.2), il numero di nodi in totale sarà 
m*n+1. Pensiamo di numerare i nodi da 
0 a m*n: il generico tratto k (con k da 1 
ad m) sarà individuato dai nodi xn(n*(k- 
1)) e xn(n*k) e comprenderà i nodi fra 
questi. 

Sul singolo tratto si procederà poi all’e- 
strapolazione con un polinomio di grado 
(avrete senz'altro capito) n. 

Assegnato dunque il numero totale dei 
nodi a disposizione e l'ordine del polino- 
mio da utilizzare ci si calcolerà il numero 
di tratti, scartando, eventualmente, alcuni 
nodi (per esempio fra gli ultimi) nel caso 
che m non risulti un intero. 





Suggerimenti 





Per la realizzazione di vostri programmi 
potete usare le subroutine del programma 
Interpola visto nel numero precedente: ne 
proponiamo qui una seconda versione, 


inserire delle funzioni che forniscano i nodi, 
funzioni che andranno richiamate ogni 
qual volta si definisce l’insieme dei dati. 

L’uso di una funzione predefinita può 
essere utile per un confronto con l’inter- 
polante a tratti, potete così rendervi conto 
dell'errore che si commette con una scelta 
del grado del polinomio anziché con un'al- 
tra. 





Commento ai risultati 


Usando il metodo proposto potrete no- 
tare un comportamento come quello di 
fig.3. Dividendo in tratti l'insieme dei nodi 
abbiamo sì evitato l'instabilità legata ad 
ordini polinomiali troppo elevati e limitato 
perciò gli errori di approssimazione, ma 
ottenuto lo sgradevole effetto degli spigoli 
agli estremi di ogni tratto. Questi spigoli 
sono dovuti alla perdita di informazione 
sull'andamento globale della funzione de- 
scritta dall'insieme completo dei nodi: tale 
perdita di informazione è dovuta, purtrop- 
po, proprio alla suddivisione in tratti. 

Sembra proprio che ci siamo dati la zap- 
pa sui piedi! Prima di farci prendere dal 
più completo sconforto rianalizziamo | ri- 
sultati ottenuti ed anche il problema stesso 
dell’interpolazione. 

Innanzitutto, abbiamo un metodo stabile 
e possiamo perciò controllarne gli errori: 
ciò che ci disturba è lo spigolo ai bordi di 
ogni tratto, quello che geometricamente si 
vorrebbe ottenere è invece una curva 
quanto più “liscia” possibile. Con riferi 
mento alla fig.4 possiamo imporre che il 
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Possiamo adottare tecniche migliori: an- 
ziché imporre una tangente prefissata agli 
estremi imponiamo che i polinomi su tratti 
adiacenti abbiano nei nodi di confine la 
stessa tangente (non una prefissata!). 

Si notino le differenze fra i tre metodi fin 
qui accennati: 

— il primo frantuma l'insieme dei nodi 
dimenticando ogni legame fra tratto e trat- 
to; 

— il secondo (Hermite) richiede altre 
informazioni, che ottiene in qualche modo, 
ma garantisce l'assenza di spigoli; 

— il terzo elimina gli spigoli imponendo, 
attraverso le tangenti, un legame fra i tratti. 

Gli ultimi due metodi si possono gene- 
ralizzare: anziché richiedere solo che le 
tangenti siano uguali si può imporre che 


Fig. 1 anche la curvatura sia la stessa. Per chia- 
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polinomio interpolante sul generico tratto 
abbia una tangente prefissata sui nodi ai 
margini, tali ulteriori condizioni alzano di 
due il grado del polinomio (è questa la 
cosidetta interpolazione alla Hermite). 
Con questo metodo otteniamo sì i van- 
taggi dell'interpolazione a tratti ed evitiamo 
gli spigoli, però dobbiamo fornire in più | 
dati relativi a tutte ie tangenti nei nodi che 
sono estremo di tratto. Però potremmo non 
possedere tali informazioni (si pensi ai dati 
estratti da una tabella) oppure cercare in 
qualche modo di desumerle dai nodi a- 
diacenti a quelli limite di tratto o magari 
fissarle a priori (il metodo basato su que- 
st'ultima tecnica fissa le tangenti orrizzon- 
tali ed ottiene buoni risultati, si parla di 
metodo di Fejer). Noi non descriveremo tali 
metodi poiché richiedono una certa dime- 
stichezza con la matematica che esula dal- 
le pretese e dagli scopi di questo articolo. Fig. 3 
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rire meglio questo discorso si osservi la 
fig.5, si ha un raccordo fra una retta ed 
un arco di circonferenza; nel punto di rac- 
cordo la tangente è ovviamente la stessa 
(coincide con la retta), la curvatura però è 
diversa subito prima e subito dopo il rac- 
cordo, si passa cioè da una curvatura nulla 
a quella data dal reciproco del raggio della 
circonferenza. Nel nostro gergo automo- 
bilistico è come se ci trovassimo a dover 
sterzare di colpo, anziché con gradualità, 
all'ingresso nella curva: potremmo dire 
che la curva in quel punto non è “liscia”. 

Siamo così giunti al variopinto mondo 























Spline 


Da quanto detto finora emerge già una 
descrizione delle spline: sono curve poli- 
nomiali a tratti con condizioni opportune 
agli estremi di ogni tratto tali da renderle 
“liscie” e da evitare che i singoli tratti ri- 
sultino slegati. 

Queste proprietà le rendono particolar- 
mente simpatiche ed utili per la computer 
graphics poiché risolvono molto bene il 
problema del disegno di profili curvilinei. 

In questo articolo discuteremo solo delle 
proprietà, del metodo di calcolo e dell'im- 
piego delle spline: una trattazione teorica 
esauriente, anche se non complessa, ri- 
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Termini Nofi Spline Naturali 
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chiederebbe troppo spazio su queste pa- 
gine e strumenti matematici non immedia- 
tamente comprensibili, riportiamo allora in 
fine articolo un minimo di bibliografia per 
coloro che desiderassero una esposizione 
più tecnica. 

Parleremo delle spline cubiche, cioè il 
polinomio interpolante sul singolo tratto 
sarà di terzo grado. Non sembri limitativa 
questa scelta, di fatto le spline cubiche 
sono le più usate sopratutto per la grafica 
al calcolatore; il terzo grado è anche il mi- 
nimo possibile per una spline. Vediamo 
allora come è fatta: ogni tratto ha solo due 
nodi, cioè è composto dai soli nodi di e- 
stremo; su ogni tratto si ha un particolare 
polinomio di terzo grado che ha, come 
deve essere, le stesse tangenti e le stesse 
curvature dei polinomi dei tratti adiacenti 
nei due nodi. Rimangono però il primo e 
l’ultimo nodo dell'insieme di tutti i nodi; su 
questi due punti si assegnano valori a prio- 
ri per la tangente e per la curvatura. Si 
usano due tipi di spline cubiche a seconda 
delle condizioni imposte su tali nodi: 

— naturali: impongono che la curvatura 
sia nulla; 
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— periodiche: impongono stessa cur- 
vatura e stessa tangente. 

Tratterero due diverse rappresentazio- 
ni delle spline cubiche, la prima più sem- 
plice e adatta all’interpolazione la seconda 
più complessa ma che meglio si adatta ai 
problemi di natura grafica. 

Prima di procedere alla descrizione dei 
metodi di calcolo è opportuno far notare 


che i pregi delle spline si pagano con una 
maggior mole di conti, può però valerne 
la pena! 





Spline per l’interpolazione 





Supponiamo di aver numerato i nodi da 
0 a ni (si noti che il numero dei tratti (nt) è 
uguale al numero dei nodi meno uno), 
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numeriamo pure i tratti da 0 a nt-1, il po- 
linomio sul generico tratto k sarà dato dalla 
formula 1 di fig.6 dove t assume i valori 
fra gli estremi del tratto, le altre costanti 
hanno il significato scritto in figura; le s1(k) 
si calcolano con la formula 2, le s2(k) si 
calcolano invece risolvendo uno dei due 
sistemi di equazioni lineari: uno per il caso 
naturale e l'altro per quello periodico. Di 
tali sistemi riportiamo solo le tabelle dei 
coefficienti e dei termini noti assumendo 
che le variabili siano nel primo caso s2(1) 
fino a s2(nt-1) con s2(0)= s2(nt)= 0 (curva- 
tura nulla agli estremi) e nel secondo s2(0) 
fimo a s2(nt-1) con s2(nt)=s2(0) e 
s1(nt)=s1(0) (stessa curvatura e stessa 
tangente agli estremi). 

Per chi sa un po’ di matematica, non 
sarà difficile riconoscere il polinomio di Ta- 
ylor. 





Il modo di procedere è allora il seguen- 
te: 

— assegnati i nodi, si calcolano le am- 
piezze dei singoli tratti, 


— con queste ed i valori dei nodi si co- 
struisce il sistema, 


— risoltolo si ottengono le costanti s2(k) 
(tenendo conto delle condizioni iniziali), 
con k da 0 ad nt, 


— da queste si ricavano con la formula 
2 le costanti s1(k), per k da 0 a nt. 


Abbiamo così tutte le costanti necessa- 
rie per tutti gli nt polinomi di terzo grado 
nella variabile t. 

La spline si traccia tratto per tratto o si 
calcola nel singolo punto dopo aver iden- 
tificato il tratto cui appartiene. 
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ni] 


Fig. 8 








B-spline 


È questo il nome dato alle spline cubi- 
che quando si passa ad una particolare 
rappresentazione che permette di trattare 
“curve piane -generalmente regolari”. 

Per ottenere una qualunque di queste 
curve dal nome tanto lungo si procede nel 
seguente modo: ci si munisce di carta e 
penna e si traccia una qualunque curva 
senza spigoli venga in mente, senza sol- 
levare mai la penna dal foglio; l’intersezio- 
ne con archi di curva già tracciati è lasciata 
alla libera iniziativa del lettore. 

Immaginiamo di fissare dei punti rap- 
presentativi (che chiameremo nodi, tanto 
per cambiare) su questa curva man mano 
che la tracciamo; siano tali punti in numero 
di n numerati da 1 ad n: i punti coincidenti 
tracciati in momenti successivi si devono 
contare. Diremo che la curva è chiusa se 
il primo e l'ultimo nodo coincidono. 

Se i punti sono stati scelti bene, allora 
la B-spline (o spline base) ripercorrerà la 
curva da voi tracciata. 

Per una B-spline sono necessari, come 
per le spline viste prima, almeno due punti: 
il primo e l'ultimo. Anche qui si hanno due 
tipi di B-spline che potremmo chiamare 
ancora naturale e periodico poiché impon- 
gono agli estremi le medesime condizioni 
viste prima; in fig.7 sono riportate due B- 
spline sugli stessi quattro nodi (la curva è 
chiusa!) una naturale ed una periodica. 
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Fig. 9 
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Formula di calcolo delle B-spline 





i E) 
MULTI ti 


: Calcolo costanti sul tratto 


[ vtk-1)7 
v() 
vCkHL) 
vCki2) | 


Ci 


i 
i 
i 
i 
| 
I 


x CU) punto generico sul tratto k 
per kda 1 an-1 cont: B4t 1 su ogni tratto 


| Calcolo generico punto x(t): 
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Fig. 10 


Il calcolo delle B-spline è leggermente 
più complicato di quello delle spline sem- 
plici ma.... ne vale la pena! 

Per fissare le idee bisogna far notare 
che ora, occupandoci di una curva piana, 
non possiamo più ritenere, in generale, 
che la y sia funzione della x: abbiamo bi- 
sogno di un'ulteriore incognita t. Se il di- 
scorso non vi è chiaro, potete pensare che 
la t sia Il tempo e x(t), y(t) siano le coordi- 
nate del punto tracciato dalla vostra penna 
all'istante t. Diremo parametrica tale rap- 
presentazione della curva, il parametro è 
ovviamente t. Indicheremo (vedi fig.8) con 
x(k) il generico punto, la sottolineatura (in 
figura) serve a ricordare che x è un punto 
del piano ed ha quindi due coordinate: 
ascissa e ordinata. Per costruire la B-spline 
si devono trovare dei parametri v(k) (anche 
questi punti del piano); i v(k) sono in nu- 
mero di n+2, numerati da 0 ad n+1, tali 
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due punti in più servono per fissare le 
condizioni iniziali: spline naturale o perio- 
dica. Anche qui per trovare i v(k) si deve 
risolvere un sistema, uno per il caso na- 
turale ed uno per il caso periodico. Ripor- 
tiamo in fig.9 i coefficienti dei due sistemi, 
i termini noti sono i valori dei nodi x, le in- 
cognite sono v(1) fino a v(n), v(0) e v(n+1) 
si ottengono come riportato nella stessa 
figura, le somme ed i prodotti vanno intesi 
ascissa con ascissa ed ordinata con ordi- 
nata. In realtà ognuno di questi sistemi è 
un sistema per le ascisse ed uno per le 
ordinate di v ed x; poiché i coefficienti non 
cambiano è conveniente risolvere il siste- 
ma in parallelo per ascisse ed ordinate ot- 
tenendo così un buon guadagno in tempo 
di esecuzione. 

Come prima le B-spline vanno tracciate 
fra un nodo e l’altro, in fig.10 è riportata la 
formula vettoriale per il calcolo del singolo 


Aes 





punto in dipendenza dal parametro t, che 
varia fra 0 ed 1 su ogni tratto. Poiché la 
formula non è di immediata comprensione 
è riportato l'algoritmo di calcolo nella stes- 
sa fig.10. Prima di passare alla descizione 
dei programmi facciamo notare che la par- 
te della formula di fig.10 che non dipende 
da t è costante sul singolo tratto, per cui 
conviene calcolarla prima di tracciare i 
punti del tratto. 





Descrizione dei programmi 





Interpola2 è la versione modificata di 
Interpola con l'introduzione delle spline. 
Come la versione precedente, permette di 
effettuare estrapolazioni, ma, cosa interes- 
sante dal punto di vista di chi si avvicina 
per la prima volta a problemi interpolatori, 
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permette di avere un confronto immediato 
fra la funzione interpolanda e quella inter- 
polatrice attraverso i loro grafici. 

Una volta lanciato, il programma chiede 
il numero dei tratti e dei nodi sul tratto, ri- 
cordandovi che questo è due se poi vo- 
lete usare le spline, e il modo in cui volete 
inserire i nodi: 

— l'inserimento manuale porta ad un 
ciclo in cui si richiedono i nodi da tastiera; 

— l'inserimento da funzione porta a ri- 
cavare i nodi dalla funzione definita nelle 
prime linee del programma; vi verranno 
prima richiesti il primo e l’ultimo nodo, i 
rimanenti saranno ricavati in modo che i 
nodi risultino equidistanti. 

Viene poi presentato un menù che vi 
permette di scegliere il metodo; a questo 
punto potete optare per un’uscita grafica 
o numerica, nel primo caso si richiedono 
gli estremi iniziali e finali per l’interpolazio- 
ne (è buona norma che siano inclusi fra il 
primo e l’ultimo nodo), il passo di calcolo 
per il grafico ed un fattore di scala per le 
ordinate (tale fattore è valutato automati 
camente per le ascisse); il passo di cal- 
colo è l'incremento della variabile x; il fat- 
tore di scala richiesto si calcola dividendo 
per cento il massimo valore assoluto delle 
ordinate. Potete notare che i nodi che sono 
margini di tratto sono evidenziati con delle 
crocette. 

Nel caso di uscita numerica si chiede il 
valore da estrapolare e quindi viene for- 
nito il risultato; se non volete calcolare un 
altro valore premete il tasto u. Nota Bene: 
il programma prevede che si utilizzino solo 
le lettere minuscole. 

Vediamo ora una breve descrizione del 
funzionamento di Interpola2: c'è un corpo 
principale che si occupa dell'ingresso dei 
dati e di coordinare i sottoprogrammi di 
calcolo. | sottoprogrammi NEWTON e NE- 
VILLE sono quelli di Interpola: c'è solo la 
variabile b che serve a identificare il primo 
nodo di ogni tratto. Per quanto riguarda 








le spline c'è un primo modulo DISPONI 
che prepara la tabella dei coefficienti e dei 
termini noti (si faccia attenzione alle diffe- 
renze indotte dalla variabile fspl) e, dopo 
aver chiamato un sottoprogramma che ri- 
solve il sistema e calcola le costanti s2, 
prepara anche le costanti s1. Terminato 
DISPONI si calcola il valore della spline 
scelta con il sottoprogramma SPLINE. 

Il secondo programma si chiama B- 
spline e si pilota interamente col mouse; 
col tasto menù del mouse potete selezio- 
nare le seguenti opzioni: 


— ClrScr = cancella lo schermo; 

— New = fa ripartire il conteggio dei 
nodi; 

— Aperta/Chiusa = indica il tipo di B- 


spline che verrà tracciata, aperta sta per 
naturale e chiusa per periodica; per sce- 
gliere una o l’altra di queste opzioni sele- 
zionate col tasto menù finché viene indi- 
cato il modo che desiderate; 

— Trace = traccia la B-spline: è abili- 
tato solo dopo che sono stati inseriti tre 
nodi; 

— End = termina il programma. 

Per fissare un nodo si usi il tasto sini- 
stro, una crocetta segnalerà il nodo sullo 
schermo; i nodi vengono inseriti automa- 
ticamente in una tabella. Il programma 
stampa la posizione della freccetta e il nu- 
mero dei nodi già inseriti. 

ll programma è dimensionato per un 
massimo di ventinove nodi, ma dovrebbe 
esservi facile cambiare tale valore. 

Per quanto riguarda il flusso del pro- 
gramma c'è un modulo principale che non 
fa quasi niente, aspetta infatti che voi 
‘’clickiate” qualcosa. La subroutine DI- 
SPONI prepara il menù discendente; le 
altre due subroutine SCELTA e NODO si 
occupano rispettivamente del tasto destro 
e sinistro del mouse. L'algoritmo di calcolo 
e tracciamento è contenuto nel modulo 
TRACE, il quale prima prepara le tabelle 
dei coefficienti, poi risolve i sistemi e quindi 





traccia la B-spline. Se non vi sono chiare 
le notazioni per il calcolo delle B-spline 
forse osservare il sottoprogramma PRE- 
PARA e TRACCIA potrà facilitare la vostra 
comprensione. Il lettore più smaliziato non 
dovrebbe avere grosse difficoltà a modi- 
ficare e rendere più gradevole l'uscita gra- 
fica di B-spline (magari congiungendo i 
punti...). 


Conclusioni 


Sperando che dedichiate un po’ di tem- 
po ad Interpola2 invece che divertirvi solo 
con B-spline, vi facciamo notare che in 
tutto questo articolo si è parlato di sistemi 
lineari di equazioni (fate attenzione i sistemi 
visti qui e l'algoritmo, che li risolve, sono 
particolari!) senza spiegare come si risol- 
vono con un calcolatore. Dipenderà dal- 
l'interesse suscitato la trattazione di que- 
sto argomento in un prossimo articolo. 





Bibliografia per l’interpolazione 
a tratti e le spline 





Josef Stoer 
Introduzione all'analisi numerica Vol.1 
edizioni Nicola Zanichelli Bologna 1974 
Marco Cugiani : 
Metodi dell'analisi numerica 
edizioni U.T.E.T. Torino 1972 

N.B: su questi due libri non sono de- 
scritte le B-spline, non ci è noto un testo 
italiano, o tradotto, che ne parli. Il primo 
testo è piuttosto completo, richiede una 
buona conoscenza della matematica e la 
capacità di realizzare autonomamente gli 
algoritmi descritti. li secondo, di più age- 
vole lettura, si presta meglio per un primo 
approccio; purtroppo non descrive le spli- 
ne. Questi due testi dovrebbero essere fa- 
cilmente reperibili in una biblioteca. 


3; BR dh 4° DA A USA 
5 de, - % CREA USA 





SHARED xn(50),yn(50) 
SHARED Nw(50) ,P(S0) 

SHARED A(S0,50),b(50) 
SHARED s1(50),s2(50) 


* Valori dei nodi 





: meNumfretti 
THEN 


neNumNodi-1 
IF Modeins$="m" 
lin=10 
FOR f=0 TO mn 
LOCATE lin,20 : PRINT USING"Nodo ##";j 
INPUT "x ";xnf 4) 
INPUT "y ";yn(d) 


LOCATE lin,40 :: 
LOCATE lin,50 : 
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‘ Vettori per Newton e Neville 
‘ Tabelle coefficienti, 
’* e costanti per le spline 





lin=lin+i : 
NEXT d 
END IF 
IF Modeins$="f" 7 
LOCATE 10,20: 
LOCATE 12,20 : 
termini noti h=(NSup-Ninf) /( 
FOR j=Q0 TO mn 
xn( J) =NInf+ 


ui “yn( 4) =FN f( 
dii NEXT j 
i END IF 
CLS ha cere 
fl=o ; LOCATE 12,20 : PR 
LOCATE 4,20 : INPUT “Numero tratti "iNumTraetti LOCATE 14/20 
LOCATE 6,20 : INPUT "Numero nodi per tratto (Spline=2) ";NumNodi LOCATE 16.20 : PR 
LOCATE 8,20 : INPUT "Inserimento M)anuale F)unzione “;Modeins$ — 


LOCATE 18,20: 
LOCATE 20,20 : IN 
CLS 

LOCATE 4,20 : IN 
IF ModeCale$&="p" 








PRINT 


PRINT 


LOCATE 8,20: 
LOCATE 10,20 : 
LOCATE 12,20: 
LOCATE 14,20 : 


IF lin>23 THEN CLS : lin=4 


HEN 


INPUT "Nodo inferiore "NINA 


INPUT "Nodo superiore "NSup 
m*n) 
h8 4 
xn( 3)) 
INT "a) Newton” 
"b) Neville" 
INT "c) Spline naturali" 
"d) Spline Periodiche” 
PUT "scelta (a-d) "imet$ 
PUT "G)rafico V)alore “";ModeCalco$ 


THEN 

INPUT 
INPUT 
INPUT 
INPUT 


"Estremo inferiòre 

“Estremo superiore 

"Passo grafico 

"Fattore di scala verticale 


"GEINF 
";ESup 
";PGra 
"ifv 
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GOSUB traccia 


END IF 

IF ModeCaloc$="v" THEN 
oga"” 
WHILE c$<>"u" 


LOCATE 8,20 : INPUT "Valore x “ix 
LOCATE 12,20 : PRINT "Risultato 2 
GOSUB calcola 

INPUT "’u’ per uscire ";c$ 


END SUB ‘crocetta 


OR met$="b" THEN n=NumNodi-1 
THEN fspi=1 : n=NumTratti 
IF met$="d" THEN fspi=0 : n=NumTratti 





IF met$="a" DR met&=" 
tratto=1 


* THEN 





‘newton & neville 


WHILE x<xn((tratto-1)#n) 
tratto=tratto+1 

WEND 

b={tratto-1)*n 





CALL newton x) ‘calcola newton 


PRINT nwt 
ELSE 
CALL neville(x) ‘calcola neville 
PRINT nev 
END IF 
END IF 


IF met$="c" OR met$="d" THEN 
CALL disponi 


‘calcola spline 


k=Q 
WHILE x<xn(k) 
k=k+1 
WEND 
CALL spline(x,k) 
PRINT spl 
END IF 


AETUAN ‘calcola 


SUB nevillef(x) STATIC 
SHARED xn,yn,n,nev,b 
FOR is0 TO n 
P(i)=yn(i+b) 
NEXT i 
FOR k=1 TO n 
FOA is0 TO n-k 
PLi)=( Cx-xn(i+k+b))*P(i)-(x-xn(i+b))*P(i+1) )/C 
xn( i+b)-xn(i+k+b) ) 
NEXT 1 
NEXT OK 
nev=P(0) 
END SUB ‘’neville 
' i 
SUB coeff STATIC 
SHARED xn,yn,Nw,n,fl,b 
FOR i=0 TO n 
* Nu( i) =yn(i+b) 
NEXT i 
FOR k=1 TO n 
FOR isn TO k STEP -1 
Nuf i) =( Nw(i)-Nw{i-1) )/0 xnCi+b)-xn(i-k+b) ) 
NEXT i 
NEXT K 
F1=1 ‘ coefficienti calcolati 








WENOD 
END IF 


END ‘interpola2 






tracci 

CLS 

IF met$ OR met$="b" THEN n=NumNodi-1 
IF met$= THEN fspi=l neNumTretti 





IF met$="d" THEN fspl=0 
Fh=600/(ESUup-EInf} 


n=NumTratti 


IF met$=-"a" OA met$="b" THEN 
FOR tratto=1 TO NumTratti 
b=(tratto-1)*n 
CALL crocettalb) 
FOR x=xn(b) TO xnfb+n) STEP PGra 
IF met$="a" THEN 
CALL newton( x) 
CALL punto(x,nwt,1} 
ELSE 
CALL neville(x) 
CALL puntalx,nev, i) 


‘newton & neville 


‘traccia newton 


‘traccia neville 


END IF 

IF Modeins$="f" THEN CALL punto(x,FN £(x),3) 
NEXT x 
fis0 ‘ricalcola i cosfficienti di newton 


NEXT tratto 
CALL crocetta(NumTratti) 
END IF 


IF met$="c" DA met$="d" THEN 
CALL disponi 
FOR k=D TO n1 
crocettalk) 
FOR x=xnCK) TO xn(kK+1) STEP PGra 
CALL spline(x,k) 
CALL punto(x, spl, 1) 
IF Modeins$="f" THEN CALL punto(x,FN £(x),3) 
NEXT x 


‘traccia spline 











NEXT K 
CALL crocetta(n) 

END IF 

RETUAN ‘traccia 


SUB puntofx,y,c%) STATIC 
SHARED EInf,fh,fv 
h=INT(10+{ x-EInf)*fh) 
w=INT(100-y*fv) 
PSET (h,v},0% 
END SUB ‘punto 
SUB cracetta(NodoTratto) STATIC 
SHARED xn,yn,EInf,Ffh,fv 
h=INT(10+(xn(NodoTratto)-EInf)*fh) 
v=INT(100-ynf NodoTratto)*fv) 
LINE {h-2,v}-{h+2,v),2 
LINE (h,v-2)-(h,v+2),2 


SUB newton(x} STATIC 
SHARED xn,Nw,n,fl,nwt,b 
IF fl=0 THEN CALL cosff 
s=Nw( n} 

FOR Kk=n-1 TO O STEP -1 

s=Nw(k) +(x-xn{k+b))*s 

NEXT k 

nwt=s 


SUB disponi STATIC 
SHARED A,xn,yn,b,s1,s2,n,fspl 


FOR i=0 TO n ‘ azzera la tabella dei coefficienti 
FOR j=0 TO n 
ACi, j} =0 
NEXT j 
NEXT i * calcole la tabella (linee seguenti) 


hO=xn(1)-xn(0) : hi=xn(2)-xn(1) 

A(1,1)=2*(h0+h1) : A(1,2)=h1 

b( 1)=6*( (yn(2)-yn(1))/h1-(yn(1)-yn(0))/h0 ) 

ho=h1 

FOR i=2 TO n-2 
hi=xnf{ 1+19)-xnCi) 
ACi,i-1}=hO : A(i,i})=2*(hO+h1) : A(i,i+1)=h1 
b(i)=6*( (ynfi+1)-yn(i))/h1-Cyn(i)-yn(i-1))/h0 ), 
hO=h1 

NEXT i 

hi=sxn(n)-xn(n-1) 

A(n-1,n-2)=h0 A(n-1,n-1)=2#*(h0+h1) _ 

b{n-1)=6*( (yn(n)-yn(n-1))/h1-(yn(n-1)-yn(n-2))/h0 ) 


IF fspl=0 THEN * aggiunge coefficienti per le spline periodiche 
hO=xn( 1) -xn(0) : hf=xn(n)-xn(n-1) 
A(0,0)=2*(h0+h1) : A(0,1)=h0 : A{O,n-1)=h1 
AC 1,0)=hD : A(n-1,0)=h1 
b(0)=6%( (yn(1)-yn(0))/h0-(yn{n)-yn(n-1)}/ht ) 


END IF 
CALL risolvi ‘ risolve il sistema 
IF fspi=0 THEN * spline periodiche 
i s2(n}=s2{ 0) 
ELSE ‘ spline natureli 
82(0)=0 
s2(n)=0 
END IF 
FOR i=0 TO n-1 " calcola le costanti si 


hi=xn(i+1)-xn(i) 
sî(1)=( ynli+1)-yn(i) )/hi-( 2*s2(i)+s2(1+1) )*hi/6 
NEXT i 


SUB risolvi STATIC 
SHARED A,b,s2,n ’ risolve il sistema 


FOR Kk=fspl+1 TO n-1 
FOR isk TO n-Î 
FOR j=k TO n-1 
AG, d) ACI, d] -ACi,k-1) #ACK=1,3) /ACK=1,k=1) 
NEXT 3 
b(i)=bf 1) -A(i,k-1)*b(K-1) /ACK=-1,k-1) 
NEXT i 
NEXT K 
s2(n-1)=b(n-1)/A(n-1,n-1) 
FOR i=n-2 TO fspl STEP -1 
s=b(i) 
FOR j=i+1 TO n-1 
s=5-82( j) #A(£, 1) 
NEXT J 
se(i)=s/AC(i,i) 
NEXT i 


SUB spline(x,k) STATIC 
SHARED yn,xn,s2,s1,n,spl 


dxmx-xnf k) 

spl=( s2(k+1)-s20k) }/6/(0 xn{R+1)-xn(k) )*dx 
spl=( s2(Kk)/2+spì}*dx 

spl=(si(k)+sp1)*dx 

spl=yn(k)+spl 


END SUB ’spline 
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di Giorgio Dose 


All’inizio degli anni sessanta i linguaggi 
per computer erano poco conosciuti e 
comprensibili solo da coloro che li avevano 
studiati per anni. Con l'aumentare dell’in- 
teresse, soprattutto da parte degli studenti, 
verso la programmazione e l’uso dei com- 
puter, si avvertì la necessità di disporre di 
un linguaggio di programmazione di facile 
apprendimento e di semplice utilizzo. Dalle 
menti fervide di un gruppo di studenti a- 
mericani e dei loro professori uscì uno dei 
primi linguaggi interattivi per computer: il 
BASIC, the Beginners All-purpose Symbo- 
lic Instruction Code. 

Da allora il Basic ha fatto molta strada 
e si può senz'altro affermare che è diven- 
tato il linguaggio più popolare e che la sua 
immediatezza d'uso ha contribuito non po- 
co alla diffusione dei computer. Con l’im- 
plementazione del linguaggio nella memo- 
ria ROM e con la possibilità di usare il re- 
gistratore a cassette per la conservazione 
dei dati, la vendita dei microcomputer ha 
preso letteralmente il volo. 

Un uso sempre maggiore di questo lin- 
guaggio sulle macchine più disparate 
portò inevitabilmente il Basic originale a 
subire notevoli cambiamenti. | progettisti 
di software creavano continuamente nuo- 


gi e i difetti di ognuno. Prendendo il me- 
glio dei vari dialetti venne creato uno stan- 
dard che avrebbe dovuto portare il Basic 
al state-of-art dei linguaggi per computer. 

Uno dei membri della commissione era 
Tom Kurtz che, con l’aiuto di John Kemeny 
e altri studenti, aveva ideato il linguaggio 
Basic originale. Gli stessi progettisti, atte- 
nendosi alle norme dello standard ANSI, 
svilupparono anche il TrueBASIC. E que- 
sto un linguaggio ideale per l’Amiga per- 
ché pur permettendo vecchi costrutti, co- 
me i numeri di linea e i vari GOTO e GO- 
SUB, possiede alcune delle più avanzate 
strutture come SELECT CASE, DO-LOOP, 
DO-WHILE e DO-UNTIL. Il TrueBASIC è 
trasportabile; ogni programma scritto con 
questo linguaggio sull’Amiga può funzio- 
nare su un Macintosh o IBM, ad esempio, 
senza alcuna modifica, compresa la parte 
grafica. 





L’Editor 


L'editor è di grandissimo aiuto nella 
scrittura dei programmi. Sia il TrueBASIC 
che l’AmigaBASIC lavorano a tutto scher- 
mo ma l’editor del TrueBASIC è più ve- 
loce e più facile da usare. 


serisce nel programma immediatamente 
dopo la linea corrente. 

Keep Cancella tutte le linee tranne quel- 
le del blocco specificato. 

Edit Visualizza, nella finestra di editing, 
solo le linee del blocco desiderato. 

Move to block Muove il cursore al bloc- 
co (subroutine) definito con un nome. 

Compile Salva il programma in forma 
compilata su un disk file; questo riduce la 
lunghezza del programma ed aumenta la 
velocità di esecuzione. 

L’editor ha in sè tutte le caratteristiche 
di un word-processor ed infatti alcuni dei 
file di testo presenti sul dischetto sono stati 
scritti usando l’editor. 





Finestre 





Il TrueBASIC si presenta con tre finestre: 
Command, Source e Output con le quali 
è facile scrivere, eseguire e correggere i 
programmi. 

Source è la finestra nella quale viene 
scritto il programma; l’editor a pieno scher- 
mo ed i menu fanno parte di questa fine- 
stra. 

Command è la finestra nella quale si in- 





FINALMENTE 
UNO STANDARD PER IL BASIC! 





ve funzioni per aumentarne la flessibilità e 
per sopperire alla sua innata lentezza. Ben 
presto i dialetti del Basic differirono sem- 
pre di più uno dall'altro e, nonostante che 
alcuni di essi, come il MicrosoftBASIC, sia- 
no diventati molto popolari, esiste ancora 
oggi una elevata incompatibilità tra i vari 
sistemi. 

Un programma, ad esempio, scritto per 
un computer con una risoluzione grafica 
di 200x200 pixel non potrà mai funzionare 
su un computer con grafica ad alta riso- 
luzione senza che per questo vengano ap- 
portate notevoli modifiche. 
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Visti i molti dialetti del Basic, l'American 
National Standards Institute nominò una 
commissione che potesse esaminare i pre- 
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L'editor del TrueBASIC è ricco di sva- 
riati gadgets. Molto importante è la fine- 
stra dei messaggi d'errore che compare 
nella parte inferiore dello schermo ed ha 
le dimensioni di una linea di testo. La fi- 
nestra è normalmente vuota e cambia co- 
lore quando viene visualizzato il messag- 
gio d'errore. Contemporaneamente il cur- 
sore si posiziona alla linea causa dell’er- 
rore. La finestra può contenere fino a 5 
messaggi ma può visualizzare solo uno di 
essi alla volta. E necessario clickare sulla 
finestra per far comparire il messaggio suc- 
cessivo. 

L'’editor dispone delle normali funzioni 
quali scroli bars e frecce, cut and paste, 
search and replace eccetera ma dispone 
anche di ulteriori comandi che necessitano 
di una piccola spiegazione. 

Include Legge un file da disco e lo in- 


seriscono i comandi basic in modo imme- 
diato per rilevare lo stato del sistema o per 
le operazioni di debugging. Volendo co- 
noscere, ad esempio, il valore della varia- 
bile x, si apre la suddetta finestra, si scrive 
“Print x” e quindi si preme <RETURN>, 
Il valore di x comparirà di seguito. Volete 
una lista dei file presenti sul dischetto? 
Aprite la finestra Command, scrivete 
“Files” e quindi date <RETURN>. Il True- 
BASIC immediatamente vi mostrerà i file 
della directory corrente. Qualsiasi coman- 
do del TrueBASIC può venir digitato nella 
finestra Command. 

La finestra Output è quella dove appare 
l'uscita del vostro programma. Normal- 
mente questa finestra è chiusa finché non 
si esegue un programma in TrueBASIC. 
Allora essa viene aperta ed il risultato del 
programma, testo e grafica, appare sullo 
schermo. La finestra può venir aperta an- 
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e ‘1 "n 4 vi è 
che manualmente e mantenuta aperta 
mentre si edita un programma nella fine- 
stra Source. 

| programmi in TrueBASIC possono ge- 
stire fino a dieci finestre aperte contempo- 
raneamente sullo schermo. Queste finestre 
possono contenere testo o grafica od en- 
trambi. Solo una finestra alla volta risulta 
attiva ma è il programma che decide in 
quale finestra lavorare e in che momento. 


Programmare in TrueBASIC 





Se siete abituati a programmare in A- 
migaBASIC o MicrosoftBASIC rimarrete 
sorpresi dalla facilità d'uso del TrueBASIC. 
Usando questo linguaggio il programma 
SpaceZap è stato scritto in un pomeriggio. 
ll programma gestisce suoni, grafica e im- 
put da mouse in meno di 100 linee! Que- 
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sto programma può girare su qualsiasi 
computer con il TrueBASIC mentre la ver- 
sione con l’AmigaBASIC può funzionare 
solamente con l'Amiga. Per scrivere un 
programma equivalente in AmigaBASIC si 
sarebbe dovuto usare lo Sprite editor per 
creare uno sprite ed il numero delle linee 
sarebbe stato notevolmente maggiore. 

Il TrueBASIC possiede molti comandi 
tradizionali del Basic ma ne comprende 
anche molti di inediti quali: 

ll comando MAT, prefissato ad un co- 
mando BASIC, permette di manipolare i 
dati di un array senza creare un loop. 

MAT READ - Opera come il tradizionale 
comando READ conla differenza che esso 
legge tutti gli elementi di un comando DA- 
TA e li pone in un array finché l'array stesso 
non è completo, e tutto questo senza ri- 
correre ad un ciclo FOR/NEXT. Ad esem- 
pio: 





| Legge i mesi ed i giorni 

! della settimana 

I 

dim mesi$(12), giorni$(7) 

mat read mesi$, giorni$ 

data gennaio, febbraio, marzo, aprile,... 


data lunedi, martedî, mercoledì ... 
end 


MAT PRINT visualizza tutti gli elementi 
di un array. Esempio: 


| Stampa una piccola lista 
I 


dim a(10) 
fori= 1t010 ! carica l'array 

let a(i)=i ! con questo loop 
nexti 
mat print a ! stampa l’intero array 
end 
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PICTURE è il comando che permette di 
definire una figura grafica e richiamarla 
come una subroutine. Picture può avere 
anche dei parametri in modo da rendere 
possibile delle variazioni ogni volta che il 
comamdo viene usato. Esempio: 


| Figura di un poligono 
I 
picture poligonof(lati) 
for i=0 to lati ! determina 
let u=2*Pi*(i/lati) ! i vertici 
plot Cos(u),Sin(u); ! e traccia 
next i I i Jati 
plot 


end picture 
set window-1,1,-1,1 ! def. area disegno 


forn=3t0 10 poligoni da 3-10 lati 
draw poligono(n) —!disegna poligono 
next n 


end 


TRANSFORMS è un comando per mo- 
dificare completamente una figura prima 
di disegnarla. Il TrueBASIC prevede ben 


cinque funzioni per trasformare un 

disegno: 

Shift(a,b)  - muove la figura. Ogni punto 
(x,y) viene spostato al punto 
(x+a,y+b); 

Scale(a) - varia la scala del disegno. 


Ogni punto (x,y) si ritrova in 
(x*a,y*a); 
Scale(a,b) - come Scale(a) con la diffe- 


SpaceZap 
Implementazione in TrueBasic | 
di Amiga magazine 
Marzo 1988 
I 
1 


ie fa 


Ù 

INPUT prompt "Livello di abilita” 

LET skill=ski11/5 

SET back "black" Y 

SET window -500,500,-500,500 ! 

LET o0x=100 ! 
r 


(0-5) 





"iskill 


! sfondo al nero 
1 dimensiona schermo 


renza che il punto disegnato in 
(x,y) va a finire in (x*a,y*b); 


Rotate(a) - ruota la figura di (a) radianti 
(o gradi) in senso orario attorno 
alle coordinate di origine della 
finestra; 

Shear(a) - inclina tutte le linee verticali 


del disegno in senso orario di 
(a) radianti o gradi. Il punto che 
si trova in (x,y) viene spostato 
alla locazione (x +y*tan(a),y). 
La trasformazione può venir applicata 
anche agli array consentendo una facile 
manipolazione degli stessi. 





ON-LINE HELP 


Il TrueBASIC dispone di ulteriori facili 
tazioni nell'uso dell’help. Per richiamarlo 
basta digitare 'Help<CR>' nella finestra 
Command o premere il tasto help. Com- 
parirà una richiesta; selezionare l’item per 
il quale servono le informazioni con un 
doppio click (o digitare le prime lettere del 
comando); si aprirà una finestra con il mes- 
saggio di help richiesto. 

PLOT. Qualsiasi punto dello schermo 
può essere indirizzato usando il comando 


Plot x,y 
Volendo indirizzare piu’ punti si userà 
Plot points: x1,y1;x2,y2;...° 


NEXT i 
CLEAR 
1 livello di abilita 
PRINT 
PRINT 
PRINT 


n 


PLOT 0,0;rnd*100, rnd#100 
PLOT 0,0;-rnd*100,-rnd#*100 
PLOT 0,0;-rnd*100,rnd*100 
PLOT 0,0; rnd#100,-rnd*100 


SET color "white" 
"Shots";shots 
*"Kills";ecore 
"GEKill";ski11*5 
LET 0x=(rnd*1000)-500 


3 sa 


Per disegnare linee tra i punti basta ag- 
giungere il carattere ”;” dopo le coordi- 
nate di ogni singolo punto 


Plot x1,y1;x2,y2;...” 


Per riempire un'area delimitata da punti 
usare il comando 


Plot Area:x1,y1;x2,y2;...' 


Il colore usato sara’ quello corrente. Il 
comando Plot combinato con il comando 
Window consente di realizzare dei grafici 
molto velocemente e senza sforzo. Per la 
rappresentazione del grafico è necessario 
fornire innanzi tutto i valori di riferimento 
per gli assi cartesiani. Ad esempio, volen- 
do disegnare un grafico che rappresenta 
il numero di automobili costruite in Italia, 
ogni cinque anni, negli ultimi trent'anni, si 
deve definire una finestra con il margine 
sinistro al valore 1958 ed il margine de- 
stro al valore 1988; il margine superiore 
potrà essere di 10 milioni mentre il mar- 
gine inferiore sarà pari a 0. Una volta de- 
finita la finestra in questo modo si userà il 
comando plot, per l'inserimento dei punti 
significativi o il tracciamento delle linee, 
inserendo i valori delle coordinate x e y 
direttamente in anni e in milioni di auto- 
mobili e non in pixel come normalmente 
siamo abituati a fare. 

Il linguaggio TrueBASIC permette di far 
uso anche delle librerie. Questo significa 





stampa colpi 
stampa punteggio 
stampa livello 


posizione x inizisle della nave 


pos. x per nuova nave 


LET oy=100 posizione y iniziale della nave LET 0y=(rnd#*1000) -500 pos. y per nuova nave 
LET a=9 END IF 

LET shots=1 IF x1<>x then LET mx=xtx1 ! nave mancata, calcola x 
Di IF y1<>y then let my=y+y1 ! nave mancata, calcola y 


LET ox=ox-mx/50 
LET oy=ay-my/50 
IF state>1 then 
GET MOUSE:N1,n2,nul1 
SET color "red" 
LET shots=shots+f 
END IF 
PLOT 0,0 
PLOT 50,0;100,0 
PLOT -50,0;-190,0 
PLOT 0,50;0,100 
PLOT 0,-S0;0,-100 
IF state>’ then SET color "white" 
IF Ki>4 then 
LET skill=ski11+,2 


1 disegna la nave 
I 

‘PLOT area:0x,0y+3*a;0x+2*a,0y-2*a;0x,0y;0x-2*a,0y-2*a;ox,0y+3*a 
BOX KEEP ox-3%a,0x+3*a,0y+3*3,0y-S#a in ship$ 

{ la forma della nave e posta in 

1 una variabile stringa 


reset pulsante di sparo 
cambia colore puntatore 
aumenta di uno i colpi 


CLEAR 
Da 





LET tx=0 

BOX SHOW ship$ at ox,oy 1 disegna nave 

BOX CLEAR 0x,0x+6*a,0y+?*a,oy ! cancella nave 

SET MOUSE: x,y,state 1 senti mouse per movimento nave 

IF abs(o0x+3#a)-10<0 then LET tx=tx+1 

IF abs(o0y+3#a)-10<0 then LET txstx+4 

IF state>0 then LET tx=tx+1 ! pulsante di sparo premuto? 
1 conteggio colpi 


! disegna puntatore nel colore corrente 
! bianco se non sparo 
1 rosso se sparo 


? plot x e y ! Spero? cambia colore 
1 se piu di 4 colpiti al livello scelto 


! inerementa skill level di 1 





IF stete>0 then 1 e suono dello sparo LET Ki=1 
FOR ss-1 to 3 END IF 
SOUND 100, .03 LET x1=x 
SOUND 500,03 LET y1=y 


NEXT ss 

END IF 

IF tx=3 then 
LET score=score+1 
LET Kki=ki+1 


LET ox=0x+(skil1*{rnd*35)} 
LET oy=oy+(skil1*(rnd*35)) 
LET ox=ox+(ski11*(-rnd#35) 
LET oy=0y+(skill*(-rnd*35)) 
IF 0y>490 then LET 0y=490 
LET ex=rnd*50 IF 0y<-490 then LET oy=-490 
SET color "red" Ex IF 0x>490 then LET 0x=490 
FDA i=1 to ex IF 0x<-490 then LET ox=-490 
IF i>(ex/2) then SET color "yellow" LOOP 


1 plot manovra evasiva nave 
! în base al livello di abilita 
! piu alto il livello 
{ piu ‘si muove la nave 


colpito ? 

se si, incrementa score 

ea incrementa contatore skili 
disegna esplosione 
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che se, ad esempio, avete una routine che 
usate frequentemente nei vostri program- 
mi, potete sistemarla in una libreria e poi 
chiamarla da programma. (Queste librerie 
non hanno niente a che vedere con le li- 
brerie dell’Amiga, esse sono proprie del 
TrueBASIC). Verso e da le librerie possono 
essere passati valori e variabili, questo 
semplifica moltissimo la programmazione. 
Si possono scrivere e correggere diversi 
moduli indipendentemente uno dall'altro e 
quindi linkarli con un altro programma per 
produrre un programma completo. 





Il package 





Non rimarrete certo delusi nell’aprire la 
confezione del TrueBASIC. Troverete in- 
fatti: due dischetti, contenenti uno il pro- 
gramma principale e l’altro numerosi e- 
sempi di programmi, e due manuali: the 
User's Guide e the Reference Manual. En- 
trambi i manuali sono rilegati con spirale 
e pubblicati da Addison Wesley: lo stesso 
editore degli eccellenti Amiga reference 
manuals. 

L'User’'s Guide è rivolto ai neofiti del 
Basic; il manuale infatti è una guida rapida 
per.chi deve imparare a programmare con 
questo linguaggio; ogni comando è spie- 
gato chiaramente ed è fornito di numerosi 
esempi. 

Il Reference manual è invece rivolto ai 





programmatori già esperti che vi troveran- 
no specifiche informazioni su ogni coman- 
do del TrueBASIC. Ogni capitolo del libro 
descrive nel dettaglio un diverso aspetto 
del linguaggio, dalla grafica al trattamento 
degli errori, ed è corredato di numerosi 
esempi. Nel manuale sono trattati concetti 
avanzati come l'assemblaggio di routine, 
la manipolazione grafica, il trattamento dei 
file e la compatibilità con i vari dialetti Ba- 
sic. 

In conclusione il TrueBASIC è veramen- 
te un programma accurato, di uso imme- 
diato ed esente da errori. Un semplice test 
consistente nel conteggio da uno ad un 
milione ha evidenziato una velocità almeno 
due volte superiore a quella dell’Amiga- 
Basic. 

Per il TrueBASIC sono disponibili un cer- 
to numero di librerie esterne di programmi. 
Tra queste ricordiamo 3D graphics, PC 
BASIC converter per tradurre da altri dia- 
letti Basic, Communications Support, Sor- 
ting and Searching, Advanced String Li- 
brary e diverse altre. L’Amiga Developers 
Toolkit comprende routine per grafica a- 
vanzata e gestione di suoni, routine per 
animazioni avanzate e accesso a tutte le 
funzioni di sistema. 

All'articolo sono acclusi due semplici 
programmi per illustrare la semplicità d'u- 
so e le possibilità offerte dal linguaggio. 





SpaceZap 





SpaceZap è stato scritto per valutare se 
il TrueBASIC supporta un buon livello di 
routine grafiche; con esso infatti non è pos- 
sibile gestire gli sprite. E risultato comun- 
que che il TrueBASIC dispone di una buo- 
na qualità grafica ed usando il comando 
Plot Area in unione con la funzione Picture 
è possibile simulare gli sprites come è stato 
fatto in questo programma. 





Orbits 





Orbits è un piccolo programma che era 
stato scritto originariamente per un com- 
puter Atari. Esso dimostra come sia facile 
convertire al TrueBASIC, programmi scritti 
in altri dialetti Basic e per altri computer. 

Orbits permette di definire la gravità e 
la posizione di un massimo di dieci oggetti; 
il programma poi calcola e visualizza ogni 
oggetto in relazione a tutti gli altri. 

Il programma è stato convertito abba- 
stanza facilmente. Tutte le formule mate- 
matiche sono state trasferite intatte. Le u- 
niche variazioni riguardano le dimensioni 
dello schermo e l’indirizzamento dello stes- 
so con i comandi Window e Plot. Questi 
ultimi sono stati adattati per sfruttare il van- 
taggio di una maggiore risoluzione e di un 
numero più elevato di colorì disponibili. 
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CLEAR 

' 

Do 
FOR isf to t 





{ calcola e definisci i punti 
t 


I 
' 
: 
! 
' 
È FOR j=1 tot 
! IF i<c>g then 

LET X1=X{ j}-XCi) 

LET YI=Y(g)}-Y(i) 

LET D25X1FX1+Y1#Y1 

LET G1=6( 4) /(D2*sqr(D2)) 

LET U(i)=U(i)+614X1 

LET V(i)=V(i)+61#Y1 

END IF 


t r 
SET mode “high16” ! grafica in alta risoluzione 
SET window -500,500,-500,500 
1 origine al centro dello schermo e 

SET color "blue" 1 schermo di larghezza ed altezza di 
SET back "black" {1 1000 punti 
DO while t<2 or t>10 ! numero degli oggetti 

PRINT "Numero degli oggetti orbitanti (massimo 10)"; 

INPUT 
LOOP 
1 


@ 


i=1 or i=9 then SET color "blue" 
IF i*2 or i-10 then SET color "white" 
IF i=2 then SET color "“red" 
IF i=4 then SET color "yellow" 

i=5 then SET color "green" 


{ definizione array 

1 

DIM G(10),X(10),Y{10),U(10),V(10),R(10) 
Ù 

{ valori per tutti gli oggetti 

t 


FDR is to t . 
PRINT "Per oggetto orbitante n. "; 
PRINT "Gravita="; 

INPUT G(i) 
let A(i)=6(i)/5 
PRINT "Coordinata X="; 


i valore gravita 


IF i=6 then SET color "cyan" 
IF i=7 then SET color “magenta” 
IF i=8 then SET color "brown" 


! coordinata X iniziale bex circie X(i)-(R(1)/2),XC(i)+C(ACi)/2),Y[i)- 









INPUT X{ i) 
x î n i R(1)/2),Y{i}+(R{i)/2 
CRONL II Viet: ! coordinata Y iniziale ‘ FARA, ! pilot prima posizione 
INPUT Yi FI YA) AVTI) 
PRINT "X-velocita="; 1 valore velocita X tel Ioia) 
INPUT UCi) i i 


box circle X(i)-{R(1)/2),X(1)+(ACi)/2),Y(i)- 
(Ri) /2) ,Y{ 4} +(RA(1)/2) 
IPLOT Xi) ,Y{i} 


LET U{i)={U(t))/100 
PRINT "Y-velacita="; 


TIE 
c 


! valore velacita Y 


ER 


INPUT V(1) ! plot seconda posizione 


di 
ARS 


pe i NEXT i 
id 3) = i 
Sa LET V(i)=(v(i))/100 1 CLEAR 1 rimuovere "!" per cancellare le tracce 
ER NEXT i Loop 
ENO 
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CODICE TITOLO PREZZO 
PP 467 | IMPARA 1-2-3 CON LA GRANDE GUIDA 
LOTUS 45 000 
PP 468 _} CHART - CORSO ISTRUZIONE 45 000 
PP 473 | IL NUOVO 1-2-3 GUIDA ALL'USO DELLA 
VERSIONE ITALIANA 2 LOTUS 1-2-3 29 000 
CODICE TITOLO PREZZO CODICE TITOLO PREZZO 
PA 474 | BILANCIO, BUDGET, CASH FLOW 40 000 
INFORMATICA: 507 B__| TUO PRIMO PROGRAMMA IN BASIC (Il) 19 500 PP 475 | DBASE Ill - CORSO DI PROGRAMMAZIONE | 23 000 
CONCETTI GENERALI 533 A BASIC DALLA A ALLA Z 19 000 PA 476 | PREVISIONE, PIANIFICAZIONE, SIMULAZIONE 
511A | COME PROGRAMMARE 15 000 540A_ | LINGUAGGIO ADA 19 500 CON LOTUS 1-2-3 60 000 
| 
503 A | PROGRAMMAZIONE STRUTTURATA, 541P_ | UnguaGGIOC 25 000 PV 477 | GUIDA ALLA BUSINESS GRAPHIC 20 000 
CORSODIAUTOISTRUZIONE 151000 542P | COBOL STRUTTURATO CORSO DI PP 480 | AUTOCAD 40 000 
101H | TERMINI DELL'INFORMATICA E DELLE AUTOISTRUZIONE 50 000 PUGILI RRASES000 SGUNAALANA ALL'USO 3000 
DISCIPLINE CONNESSE 50.000 508P_| PROGRAMMAREINC 39 000 
PP 587 | IL MANUALE DI WINDOWS 60 000 
039.4; | FLOGICAE DIAGRAMMI A'BLOGCHI G 233 | COBOL PER MICROCOMPUTER 35 000 
TECNICHE DI PROGRAMMAZIONE 40 000 PP 539 | DBASE Ill - TECNICHE AVANZATE DI 
20" \HATA SAGE CONDETINE DISEGNO SORA GYS246] ESERCIZI DI FORTRAN 20 000 PROGRAMMAZIONE 42 000 
as O I I 
G di i LI OEMATOÀ È oo GYS254| PROGRAMMAZIONE IN LINGUAGGIO ADA | 42 000 PEEZE. MANUALE PBASE PLUS 15.000 
GYSs ci ORMATICA 0 GY 270 | APL PERILPC IBM 25 000 039T | WORDSTAR 12.500 
GYS248| DATA PROCESSING 45 000 GYS274| DAL PASCAL AL MODULA 2 26 000 O40T | LOTUS 1-2-3 12/500 
GY 264: |'DATA FILE 50.000 GYS311| LINGUAGGIO C IL LIBRO DELLE SOLUZIONI] 24 000 043T | winpows 12 500 
GYS266| ARCHITETTURE DI SISTEMA 32 000 GYS328 | APPLICAZIONI IN PASCAL 32 000 PP 621 | ICOMANDI DI OBASE lil PLUS 12 500 
9Y:394;: SISTEMI INTELLIGENTI 28 000 GY 535 | TURBO PASCAL 29 000 095D | GUIDA Ai PACKAGE APPLICATIVI 
CZ 419 | ANALISI E PROGRAMMAZIONE 11000 G 544 «“C" LIBRARY 49 000 MERCEOLOGIA DEL SOFTWARE 7 000 
158 EC | INFORMATICA DI BASE | CONCETTI 096 D | VISICALC GUIDA RAPIDA ALL'UTILIZZO 7 000 
FONDAMENTALI VIA RDWARLE SORTIVANE ll Esiodo GYS550| PROLOG - LINGUAGGIO E APPLICAZIONE | 32 000 TROTA co 
; R589 | TURBOPASCAL - LIBRERIA DI PROGRAMMI |_ 45 000 
526 A__| VOI E L'INFORMATICA 15 000 Dda FGG 103D | LOTUS 1-2-3 E SIMPHONY IL FASCINO 
100H | DIZIONARIO DI INFORMATICA 59 000 LINGUAG L12500 DELL'INTEGRAZIONE 7 000 
GY 551 | I LINGUAGGI DELLA 44 GENERAZIONE 65 000 108 D__| FORTH ANATOMIA DI UN LINGUAGGIO 7000 104D | DBASE IE III | PRINCIPI DI DATABASE 7000 
GYS552| PRIMA DEL LINGUAGGIO 107 D | FORTRANE COBOL LINGUAGGI SEMPRE 1060 | MULTIPLAN SPREADSHEET MULTISTRATO | 7 000 
LA PROGRAMMAZIONE 35 000 VERDI 7 000 110D | PACKAGE A CONFRONTO PROVE DEI 
GUS ssp|.cSP.1PROCESSI SEDUENZIANI cr 086D | EDESUBITO BASIC VOL 1 7 000 SOFTWARE PIÙ DIFFUSI 7 000 
GIS 846 ALGORITMI FONDAMENTALI EEoof 087 D_| EDE SUBITO BASIC voL 2 7 000 031T | FRAMEWORK E FRAMEWORK Il 12 500 
VRIE l'RIGTEMI ESPERTI se Dog 034T | PROLOG 14 000 033T | MULTIPLAN 202 12 500 
DAL AI IMICAOPROGESSON (800 0357 | LISP 12 500 oeì T_| sweHow 12 500 
ieri di prrgasae al a son ai TIT) 
DIST PILE DETTI 006H | PASCAL 8 500 
CO7H | BASIC 8 500 033 H | PAGE MAKER 8 500 
CI 686 | CAPIRE IL PERSONAL COMPUTER 35 000 
esi i veste uan nicica cena 010H | FORTRAN77 8.500 1034H_ | PROJECT _ 8500] 
G 540 | MODELLI MATEMATICI E SIMULAZIONE 56 000 
GE 688 | ENCICLOPEDIA MONOGRAFICA DI 020H | LOGO 8 500 |ossli | RBASE | 85001 
ELETTR E INF VOLUME I 58 000 022H | FORTH 8 500 FRSLIT]|FOUIDA ALL'USO PROFESSIONALE SODA 
ft _—_ _—_, li) pifi {ic  __——_—__€@=t*“’ | |raex ___———— |6000] 
GE 689 ENCICLOPEDIA MONOGRAFICA DI dai R612 | rurBo PROLOG 50 000 Freda MANUALE DIWORD Z0.00dì 
GY 626 | IL MANUALE DEL PASCAL 42 000 GUIDA ALL'USO PROFESSIONALE 
GY 629 | SOFTWARE DI BASE - Strumenti di sviluppo] 52 000 
GY 616 | DEBUGGING c 55 000 DI LOTUS 1-2-3 
INFORMATICA: GY 687 | DALLA PROGRAMMAZIONE STRUTTURATA VENTURA - Il grande manuale 
SISTEMI OPERATIVI AL PASCAL 42 000 LINGUAGGIO C - Reference guide 
G 223 | UNIXLA GRANDE GUIDA 70 000 GY 634 | FONDAMENTI DI COMMON LISP 40 000 ETTI ICOMANDIDI LOTUS 1198 
GY 272 | SISTEMI OPERATIVI PER MICROCOMPUTER| 25 000 INFORMATICA: Reference guide 12 500 
GY 273 | Ms-Dos LA GRANDE GUIDA 45 000 LAVORO È SOCIETÀ PP 581 | PROGRAMMARE IN FRED 40 000 
510P CP/M CON MP/M 29 000 519 P COMPUTER GRAFICA 29 000 PP 631 dBASE Ill PLUS - Guida uso professionale 65 000 
cz538 | Ms pos2E3 49 000 PP 694 | PROGRAMMARE IN WINDOWS 70 000 
7 300P__| ODISSEA INFORMATICA 50.000 PA 592 | GESTIONE DELLA PRODUZIONE 40 000 
SR SAS RENI 45:000 407 H | APPLICAZIONI DEL COMPUTER 
R588 LAVORARE CON XENIX 70 000 NELL'UFFICIO MODERNO 23 000 PP 727 VENTURA - REFERENCE GUIDE 14 500 
GYS271 | SISTEMI OPERATIVI 55 000 802 H INFORMATICA MUSICALE 27 000 PP 700 MATEMATICA CON LOTUS 1-2-3 35 000 
R615_| I COMANDI DI XENIX MAIL 12 500 802P_ | COMPUTERGRAPHIA 40 000 R574 | MANUALE DELLE STAMPANTI LASER 25 000 
092 D | SOFTWARE DI BASE E SISTEMI OPERATIVI | 7 000 ; 
SOI SOFIMARE DI PASTE SIE 100 806 P__| COMPUTER PER L'INGEGNERIA EDILE 22 000 PERSONAL COMPUTER 
US 807 P__| COMPUTER PER IL MEDICO 19 000 
9940-21] MS:DOS E Pe7D0S'CO,SFANDARDBM sa 01 231 | COMPUTER IMAGE 40 000 550 D__| PROGRAMMI PRATICI IN BASIC 15.000 
009 H_| UNIX So) CI 241 | ODISSEA INFORMATICA STRATEGIE 515H | BASIGELA GESTIONE DEI FILE VOL | 
011H | cem 8 500 CULTURALI PER UNA SOCIETA INF 32 000 METODI PRATICI 15 000 
Q44T MS DOS 14 500 G 400 | COMPUTER GRAPHICS E ARCHITETTURA | 27 000 551 D e GRAMMI IN BASIC PER IL VOSTRO ne 
0457 | PcDos 14 500 PV 409 | COMPUTER GRAPHICS E MEDICINA 18000 Ca enni iN 
R628__| MICROSOFT 08/2 | 59900 GY 487 | MEDICO & COMPUTER _j 45000 STATISTICA IN BASIC 20 000 
DAT UNIX 14 500 GY 548 | INFORMATICA MEDICA 65 000 554P PROGRAMMI SCIENTIFICI IN PASCAL 29 000 
MS 02 E CORO So gu DOS 5" isa Don F PA 685 | OFFICE AUTOMATION 28 000 516H BASIC E LA GESTIONE DEI FILE - VOL 2 17 000 
RA 596 | DESKTOP PUBLISHING 35 000 
TEO CHIGE | COMPUTER ARONARE NEUE leon 
il Manuale del Programmatore 55 000 } OSOT WORD 14 500 I i 
GY 663 | UNIX PHOGRAMMAZIONE AVANZATA 55 000 INFORMATICA: cia ii ERRE i COPIE 3a Don 
| GY 663 | UNIX PHOGRAMMAZIONE AVANZATA ___|_55000| : fi 
BY 724 | GUIDA AI SISTEMI OPERATIVI 29 000 FTW. ETTI L 
INFORMATICA: 2 Sor ARE PACCHI APPLICATO 2a GE 263 | METODI DI INTERFACC PERIFERICHE 43 000 
LINGUAGGI — i NTABILI SONALIOOM DOO GE 402 | CORSO DI AUTOISTRUZIONE PER 
525P__| WORDSTAR 24 000 MICROCOMPUTER VOL 1 + VOL 2 85 000 
501 A__| IMPARIAMO IL PASCAL 16 000 546P | MANUALE DEL DBASE Il 24 000 PA 406 | COME GESTIRE LA PICCOLA AZIENDA 
502 A_| INTRODUZIONE AL BASIC 25 000 539/905 /PCNENSORO DELLE PICCOLE AZIENDE È CONILPC 22 000 
500 P_ | PASCAL MANUALE E STANDARD DEL APPL_DEL MULTIPLAN 29 000 PP 408_| BUSINESS IN BASIC 23 000 
LINGUAGGIO 16/000. PP 219 | LOTUS 1-2-3 GUIDA ITALIANA ALL'USO | 21000 CI 412 | IL COMPUTER E UNA COSA SEMPLICE 15.000 
329 A__ PROGRAMMARE IN ASSEMBLER 14 000 G 234. | RIORDINO E GESTIONE DEGLI ARCHIVI CC 415 | CONTROLLO DEI DISPOSITIVI DOMESTICI 
5Î3A | PROGRAVMARE IN BASIC 8000. APPLICAZIONI CON PFS-FILE 30 000 CON IL PC 23 000 
514A__| PROGRAMMARE IN PASCAL | 19.000 PP 255 | DBASE Ill GUIDA ITALIANA ALL'USO 45 000 159 GC | PERSONAL COMPUTER DAL SOFTWARE DI 
PA 282 | MODELLI DECISIONALI PER IL MANAGER | 50 000 BASE ALLE APPLICAZIONI D'UFFICIO 29,000 
310 A FINTRODUZIONE ALSPASCALE 39.000. R.587 | HARD DISK - LA GRANDE GUIDA 75 000 
PA 288 | PIANIFICAZIONE AZIENDALE PLANNING, F È 
517 P__| DAL FORTRANIVALFORTRAN77 (I ED) | 32000 MARKETING STRAT, BUDGETING 35 000 084D | INTRODUZIONE AI PERSONAL COMPUTER 
521 A_| 50 ESERCIZI IN BASIC 17 000 PP 310 | LA GRANDE GUIDA LOTUS A SYMPHONY | 70 000 VIVERE COLPO 7.000 
Sic PER TUTTI ; 099 D | SCRIVERE UN'AVVENTURA, 
525A_|BA 28 000 PP.326 | MULTIPLAN CORSO D'ISTRUZIONE 40 000 |F TOGO AVVENTURE'COLIPROPRIOPE 4000 
534 A | MANUALE DEL BASIC 45 000 PP. 344 | FRAMEWORKIl - GUIDA ITALIANA ALL’USO| 27 000 (0001 \GFAFICINLRASIGLE RAGIDENCA 
509 A_| LOGO POTENZA E SEMPLICITÀ 20 500 PP. 351 ] WORD PROCESSING 27 000 COMPUTERGRAFICA 7 000 




















































































































































































































































































































































































































































































































































CODICE TITOLO PREZZO CODICE TITOLO ]erezzo CODICE TITOLO PREZZO 
085D | HARDWARE DI UN PERSONAL COMPUTER PERSONAL COMPUTER: CE 485 | IL COLLAUDO DELLE SCHEDE 18.000 
DENTRO E FUORI LA SCATOLA 7.000 APPLE BE 557 } 1TRASDUTTORI 43.000 
101D | GESTIONE DEI FILE IN BASIC E PASCAL FIERE O 
VOL. 1 7.000 331 P__| APPLEII GUIDA ALL'USO 31.000 31905 TECHE n 25:000 
102 D | GESTIONE DEI FILE IN BASIC E PASCAL 416P | MACINTOSH NEGLI AFFARI: BE 578_| MANUALE DI ELETTRONICA 29.000 
VOL. 2 7.000 MULTIPLAN E CHART 16.500 BE 558 IL MANUALE DEL TECNICO 
ELETTRONICO 51.000 
113 D DISEGNARE COL PERSONAL COMPUTER 7.000 424P UN MAC PER AMICO: USO, APPLICAZIONI 
105D | PERSONALE HOME COMPUTER A E PROGRAMMI PER MACINTOSH 12.000 BE 610 | GUIDA ALLA STRUMENTAZIONE 
CONFRONTO 7.000 - ELETTRONICA 34.000 
: PP 224 | MACINTOSH ARTISTA: MACPAINT E 
112D | SUONO E MUSICA COL PERSONAL MACDRAW 16.000 BE 619 | MULTIMETRI DIGITALI 42.000 
COMPUTER 7.000 CCP277 | APPLE IIC GUIDA ALL'USO 45.000 BE 639 | ENCICLOPEDIA DEI CIRCUITI INTEGRATI 60.000 
109D | COSTRUIRSI UN PERSONAL DATABASE 7.000 cc 312 | PROGRAMMI PER APPLE IG 13.000 BE 654 MANUALE DI ELETTRONICA slo 
L9T1 GUIDA ALL'ACQUISTO DI'UN. PERSONAL GIOR CC 417 | PROGRAMMI COMM. E FINANZIARI CON co 2 
MPU -00 APPLE 22.000 701P | MANUALE PRATICO DEL RIPARATORE 
RADIO TV ; 
088D |TODO ORNOTTO DO COME AVER CURA i 40M. l'APPLEMEMO 18.000 29.000 
DEL PROP 7.00 È 705P | IMPIEGOPRATICO DELL’OSCILLOSCOPIO | 17.500 
CC 576 | IL MANUALE DELL’APPLE Il GS 28.000 
089D | SOFTWARE STRUTTURATO CON ELEMENTI 615P | PROGETTAZIONE DI SISTEMI DI 
DI PASCAL |_7.000 003 H_| APPLEIIE IIC 8.500 L ALTOPARLANTI 21.000 
090 D_| DIZIONARIO DI INFORMATICA 7.000 CC 665 | MICROSOFT BASIC PER APPLE CE 427 | L'ELETTRONICA A STATO SOLIDO 25.000 
091D | BASI DELLA PROGRAMMAZIONE MACINTOSH 32.000 BE 718_| 77 SCHEDE PERIL RIPARATORE TV 40.000 
STENDERE UN PROG. COME SI DEVE 1000 PERSONAL COMPUTER: BE 723 _ | MISURE DEI CIRCUITI ELETTRONICI 26.000 
004H | PROGRAMMAZIONE 8.500 ATARI - AMSTRAD - SHARP - 
015H | PROGRAMMI DI STATISTICA 8.500 540H | BASIC ATARI 18.000 dea 
PERSONAL COMPUTER: CC 330 | PROGRAMMI PER AMSTRAD CPC 464 
COMMODORE L |OPC 664 - CPO 6128 29.000 310P__} NANOBOOK 280 VOL. 1 20.000 
CC 331 | PROGRAMMI PER ATARI 130XE 19.000 007.À  l'EICELORVI "3000 
847 D__| VOIE IL VOSTRO COMMODORE 64 24.000 CC 471 | MANUALE ATARI 520 ST E 1040 ST 28.000 
3480 | COMMODORE 64 - IL BASIC DE000 314P. | TECNICHE DI INTERFACCIAMENTO 
e CC 486 | WORD PROCESSING CON AMSTRAD DEI MICROPROCESSORI 81.000 
400 D_ | FACILE GUIDA AL COMMODORE 64 13.500 PCW 8256/8512 35.000 Zia pi] NANOBOGKZAG VOLLIII SE N00 
400 B_| COMMODORE 64 - FILE 19.000 032T | AMSTRAD PCW 8256 e POW 8512 14.000 So EMICROPROCESSORIDAO PSRISTAMI L0A000 
409 B__| COMMODORE 64 - LA GRAFICA E IL suONd 34.000 |c 028 H_| AMSTRAD 464 E 664 8.500 sodP:*|EROGRANMAZIONE DELLO 360E 
570D | MATEMATICA E COMMODORE 64 26.500 |C COMMUNICATION E TELEMATICA PROGETTAZIONE LOGICA 21.500 
350D | LIBRO DEI GIOCHI DEL COMMODORE 64 _ | 24.000 |c 309 A | PRINCIPI E TECNICHE DI ELABORAZIONE 326P | Z80 PROGRAMMAZIONE IN LINGUAGGIO 
575D | TECNICHE DI PROGRAMMAZIONE DATI 20.000 ASSEMBLY 50.000 
SUL COMMODORE 64 16.500 518D | TELEMATICA 328 D_| PROGRAMMAZIONE DELLO Z80 40.000 
572D | LINGUAGGIO MACCHINA DEL F 528 P__| TRASMISSIONE DATI 504B | APPLICAZIONI DEL 6502 17.000 
COMMODORE 64 35.000 617P. | RETIDATI: CARATTERISTICHE, PROGETTO 503B | PROGRAMMAZIONE DEL 6502 35.000 
576D | SISTEMA TOTOMAC: LA NUOVA FRONTIERA c E SERVIZI TELEMATICI 505B | GIOCHI CONIL 6502 19.500 
DEI. TOTOCALCIO 29.000 GYS314| ELABORAZIONE DIGITALE DEI SEGNALI: > 
5488 | 64 PERSONAL COMPUTER E C64 45.000 TEORIA E PRATICA G 220 | 8086-8088 PROGRAMMAZIONE 40.000 
SDP222 | STATISTICA AD UNA DIMENSIONE CON BANCHE DATI RICERCA ONLINE GY 265 | ASSEMBLER PER IL 68000 70.000 
IL C64 24.000 COMUNICAZIONI (DALLE ONDE u CE 410 | IMPIEGO DELLO 280 23.000 
Lia 0 e V| [OE STO] IMPICSODERTO 200 oi e Es SS 90 
CC 260 | AVVENTURE (COMMODORE 64) 20.000 |C LETTROMAGNE NCHE ALIASIECZHATOA 158 HC | MICROPROCESSORI ARCHIT. PROGR. E 
cc 320 | AMIGA HANDBOOK 35.000 CC 472_| MODEME PC USO E APPLICAZIONI INTERFAC. DEI MP DA 4 A 82 BIT 55.000 
CC 322 | coMMODORE 128 OLTRE IL MANUALE 29.000 fire eeniocai: scese 013H | ASSEMBLER 6502 8.500 
è GTS479 | IL MODEM - TEORIA, FUNZIONAMENTO 28.000 
016H | ASSEMBLER Z80 8.500 
CC 323 | PROGRAMMI PER COMMODORE 128 29.000 |C 
R 542 | TRASMISSIONE DATI PER PG HOT ASSEMBLEN F9000 FRdO 
CZ541 | 128 E 64 - LE PERIFERICHE 32.000 LA TELEMATICA NELL'UFFICIO - 
CC 564 | MANUALE RIPARAZIONE C64 55.000 R601 | COLLEGAMENTO TRA MICRO E [025 H | -ASSEMBEER'8086-3088 8.500 
©2532 | MANUALE DI AMIGA 39.000 MAINERAME, 39.000 029 Hi3 |; ASSEMBLER 80286 2500 
002H | coMMODORE 64 8.500 BT 655_j MANUALE DI TV E VIDEO COMMUNICATION] 45.000 GE 567 | 80286 ARCHITETTURA E 
È È ELETTRONICA DI BASE PROGRAMMAZIONE 58.000 
CC 658 | GRAFICA E SUONO PER C64 - 64PC - F 
128 35.000 E TECNOLOGIA GY 603 | 80386 ARCHITETTURA E 
: £ PROGRAMMAZIONE 37.000 
CÒ 657 | MANUALE DEL COMMODORE F 201A | CORSO DI ELETTRONICA FONDAMENTALE 
C64 - CEAPC - C128 35.000 CON ESPERIMENTI 35.000 AUTOMAZIONE di 
CC 627 | AMIGA 500 55.000 204 A__| ELETTRONICA INTEGRATA DIGITALE 50.000 208 A__| CONTROLLORI PROGRAMMABILI 24.000 
CC 750 | C.128 LA GRANDE GUIDA 50.000 205 A MANUALE PRATICO DI PROGETTAZIONE 616P__| CONTROLLO AUTOMATICO DEI SISTEMI 29.500 
CC 749 | C.64 LA GRANDE GUIDA 50.000 ELETTRONICA 35.000 GES251 | STRUTTURA E FUNZIONAMENTO DEI 
200A | SISTEMI DIGITALI: MANUTENZIONE, CONTROLLI NUMERICI 29.000 
PERSONAL COMPUTER: RICERCA ED ELIMINAZIONE GUASTI 28.500 GES252 | CONTROLLI NUMERICI: 
IBM GES262| TECNOLOGIE VLSI Î 70.000 PROGRAMMAZIONE E APPLICAZIONI 28.000 
564 D__| PROGRAMMI UTILI PER IBM PC | 19.000 GES390| ELETTRONICA INTEGRATA DIGITALE G 399 | 30 APPLICAZIONI DI CAD 29.000 
G 217 | GRAFICA PER IL PERSONAL COMPUTER IL LIBRO DELLE SOLUZIONI 17.000 G 401 | CAD/CAM & ROBOTICA 28.000 
IBM 39.000 CE 411 | LA FISICA DEI SEMICONDUTTORI 10.000 CI414_| DAL CHIP ALLA ROBOTICA 15.000 
GY 319 | PC IBM MANUALE DEL LINGUAGGIO 158 PC | ELETTRONICA DI BASE | FONDAMENTI 
MACCHINA 45.000 DELUSLETTRONICA ANALOGNSA sE 000 GE 547 | LA PROGETTAZIONE AUTOMATICA Sa 32.000 
GY 335 | MAPPING PC IBM GESTIONE DELLA 158 CC | ELETTRONICA DIGITALE VOL. i DALLE GE 564 | ROBOTICA - Fondamenti e applicazioni 38.000 
MEMORIA 42.000 PORTE LOGICHE Al CIRCUITI INTEGRATI 55.000 DIZIONARI ENCICLOPEDICI 
PP 407 | MANUALE BASE DEL PG IBM 22.000 158 DC PLSTTRONICA DIG ALE VOL 2 DA DS 498 | FISICA 14.000 
DETTE RPCIEM 125500 : DS 499 | MATEMATICA 14.000 
R 609 SOLUZIONI AVANZATE PER IL 158 GC | ELETTROTECNICA ELETTROSTATICA la 
PROGRAMMATORE 60.000 ELETTROMAGNETISMO RETI ELETTR. 55.000 DS 522 | GEOLOGIA 14.000 
©Z 751 | AVVENTURE PER MS-DOS 35.000 |F ELETTRONICA DS 524 | ELETTRONICA 14.000 
DS 525 | ASTRONOMIA 14.000 
PERSONAL COMPUTER: APPLICATA 4 
OLIVETTI 801B TIMER 555 10.000 DS 526 | CHIMICA 14.000 
ite TESRING LIERO PER MAR MS'DOSE OÙ 203 A | INTRODUZIONE Al CIRCUITI INTEGRATI DS 527 | RAGIONERIA GENERALE 14.000 
BASIC ° 28.000 DIGITALI 10.000 DS 528 _| RAGIONERIA APPLICATA 14.000 
- 612P_ | MANUALE DEGLI SCR VOL. 1 i 
4018 | OLIVETTI M10: GUIDA ALL'USO 18.000 SISP. | MANUALE DI OPTOELETTRONICA È Doo DS 529 | BIOLOGIA 14.000 
CL 216 | BASIC IN 30 ORE PER M24 ED M20 32.000 ata el NiERTOTICHE "000 DS 530 | MECCANICA 14.000 
OZ 483 | MANUALE OLIVETTI M19 42.000 GE 403 | JFETMOS E DATA BOOK Z0,000 DS 531 | INFORMATICA 14.000 
CZ536 | MANUALE PC 128 OLIVETTI PRODEST 29.000 > 
©2582 | PROGR. PERPC . OLIVETTI PRODEST (SE 404: | TRANSISTOR DATA'BOOK s2.000 AGENTI VARI 
(CASSO Sco GE 405 | METODI DI PROTEZIONE CONTRO LE 704D | MANUALE PRATICO DI REGISTRAZIONE 10.000 
SOVRATENSIONI 17.000 706 A COMUNICAZIONI RADIO IN MARE 18.000 
SERSEAL ealizti GE 413 _ | IL MANUALE DEGLI SCR E TRIAC 15.000 800H | FENDER, STORIA DI UN MITO 28.000 
IS cE si MANUALE DEI FILTRI ATTIVI 29.000 SOFTWARE E MANAGEMENT TOOLS 
LP j DEI PLL PRI ZIONE 
SELE orsiinoa CRM o Do O PE42I MANUALE OGERTAZIO] 29.000 CZ 469 | GRAFIX - DISEGNARE CON IL PC 50.000 
= — CE 425 | MANUALE DEGLI AMP ‘ATORI TP 606 | CORSO AUTOISTRUZIONE LOTUS 1-2-3 
CC 261 | AVVENTURE (MSX) 20.000 |C OPERAZIONALI SoS 29.000 (VERS. ITALIANA) F - MS DOS 90.000 
CC 289 | SUPER PROGRAMMI PER MSX 35.000 |C CE 429 | 250 PROGETTI CON GLI AMPLIFICATORI TY 605 | CORSO AUTOISTRUZIONE SUL SISTEMA 
CC 336 | MSXLA GRAFICA 25.000 DI NORTON 39.000 MS DOS - FLOPPY 50.000 
111D | STANDARD MSX | 7.900 CE 431 | MANUALE DEI CMOS { 25.000 TY 640 | TURBO PASCAL - LIBRERIA DI PROGRAMMI] 40.000 














































































































CODICE TITOLO PREZZO 
TP 643 | CORSO AUTOISTRUZIONE LOTUS 1-2-3 F 
(INGLESE) 90.000 . 
TP 608 BUDGET STRATEGICO (LOTUS 1-2-3) 100.000 |F 
TP 614 GESTIONE DELLE COMMESSE DI F 
PRODUZIONE 100.000 
TP 623 CONTROLLO DELLE VENDITE F 
(CON MULTIPLAN) 100.000 
TP 625 GESTIONE DEL PERSONALE (LOTUS 1-2-3)| 100.000 |F 
TP 677 GESTIONE DELLE COMMESSE CON F 
MULTIPLAN 2.0 100.000 
TP 673 PREVENTIVO E CONSUNTIVO DEI COSTI - F 
CON LOTUS 1-2-3 VERS. 2 
E MULTIPLAN 2.0 100.000 
TP 660 | 1-2-3 LIBRERIA DI MACRO 60.000 |F 
TY 691 SUPER SCREEN - UTILITY PERI 
PROGRAMMATORI 50.000 
TY 690 PC DOCTOR UTILITY - RECOVERING DEI F 
FILE 60.000 
TP 644 STATISTICA A UNA E DUE DIMENSIONI 100.000 |F 
TP 681 ANALISI ABC CON LOTUS 1-2-3 100.000 |F 
TP 669 | GESTIONE DELLE COMMESSE 
CON dBASE III PLUS 100.000 
MARKETING & MANAGEMENT 
M 648 PROBLEMI DI MARKETING 45.000 
M 649 DISTINTA BASE 23.000 
M 650 TECNICHE DI ANALISI 
FINANZIARIA 52.000 
NOVITÀ SETTEMBRE ’88 
M 647 RICERCHE DI MERCATO 72.000 
PP 641 AUTOCAD - Il grande manuale 55.000 
PP 728 VENTURA - Realizzazione e utilizzo F 
dei fogli stile 42.000 
PP 741 WORD versione 3 e 4 59.000 |F 
R 736 INSIDE PC IBM 63.000 |F 
R734 MANUALE DEL DOS 55.000 
BE 721 MANUALE PRATICO DI ELETTRONICA 
DIGITALE 26.000 
BE 684 | IL MANUALE DEI CMOS 35.000 
F = libro con floppy 
C = libro con cassette 
Per le vostre ordinazioni per corrispondenza uti- 
lizzate l'apposita cedola inserita in questa rivista. 
* L'Editore si riserva di modificare i prezzi di copertina in 
qualsiasi momento. 
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R. Farabone//I. Pinotti 





FONDAMENTI SEE 

DI COMMON LISP CE. Panzalis 

Pag. 320 Lire 40.000 WORD 

Cod. GY634 pp. 90 Lire 14.500 
Cod. 050T 


Il testo si pone come tramite 
indispensabile per il neofita 
che possieda solo conoscenze 
teoriche sulle problematiche, 
guidandolo con gradualità e 
numerose esemplificazioni, ad 
una adeguata e corretta 
padronanza del linguaggio. 





Una guida per una veloce 
consultazione ed un approccio 
dinamico al word processing 
che consente di comporre, 
organizzare, impaginare e 
quindi stampare un documento 
con qualità professionale. 








































































































H.L. Davidson 
MULTIMETRI DIGITALI 





Sybil P. Parker 
ENCICLOPEDIA 


pp. 308 Lire 42.000 MONOGRAFICA DI 
Cod. BE619 ELETTRONICA E 
Indirizzato a tutte quelle SISI 
Vit . ol 

PFISONE: PECIRIABALe pp. 608 Lire 58.000 
professionisti, interessate alla Cod. GE688 
individuazione dei guasti e 
alla riparazione di apparecchi E, 3 

6, suli pp. 61 Lire 58.000 
elettronici commerciali, Cod. GE689 


mediante l’uso dei multimetri 
digitali. 


H.W. Buchsbaum/R.J. Prestopnik 


ENCICLOPEDIA 

DEI CIRCUITI INTEGRATI 

pp. 536 Lire 60.000 
Cod. BE639 


Vengono fornite le principali 
informazioni su quasi 250 
circuiti integrati, dai più 
semplici ai microprocessori a 
32 bit. 


La sola enciclopedia in grado 
di fornire una panoramica 
completa ed approfondita 
dell'elettronica e 
dell'informatica, con articoli su 
argomenti di primario 
interesse ed estrema attualità. 


IL TUO LIBRO 













SERVIZI( 


Jackson. 


IENA IL LAZIO E CINI 


Se desiderate sottoscrivere abbonamenti alle riviste Jackson, utilizzate questa 
cartolina. Gli abbonati Jackson possono contare su un duplice risparmio (una 
tariffa privilegiata e la garanzia del prezzo bloccato per la durata del proprio 
abbonamento) e hanno diritto a uno sconto negli acquisti di libri. Ritagliate e 
spedite, riportando sulla busta l'indirizzo esatto del Gruppo Editoriale 


LETTORI | RITAGLIATE E SPEDITE IN BUSTA CHIUSA 
I 2 





. GRUPPO EDITORIALE JACKSON PROMUOVE OGNI 
GIORNO NUOVE INIZIATIVE PER FACILITARE IL È COGNOME 
CONTINUO DIALOGO CON | PROPRI LETTORI. NOME 
NATURALMENTE È IMPORTANTE CHE. QUESTO 

SCAMBIO DI INFORMAZIONI SIA RESO IL PIÙ 
POSSIBILE AUTOMATICO E CHE | SUOI TEMPI SIANO 
:5MPRE PIÙ RISTRETTI. È CON QUESTO INTENTO CHE 

NASCE IL SERVIZIO LETTORI JACKSON 
ORGANIZZATO IN MODO DA SODDISFARE OGNI 
ESIGENZA, SECONDO UN SISTEMA DI CEDOLE 
PRECONFIGURATE, DA INVIARE AL NOSTRO 
SERVIZIO MARKETING. ANZITUTTO, IL SERVIZIO 
LETTORI JACKSON CONSENTE DI SOTTOSCRIVERE I 
:3BONAMENTI O ORDINARE LIBRI E GRANDI OPERE I 
UTILIZZANDO LE CEDOLE QUI A FIANCO, 
SCEGLIENDO LA MODALITÀ DI PAGAMENTO Ij 





VIA E NUMERO 





CAP__ CITTÀ —._ 





PROV. TEL. (_... ) 





PREFERITA. UN ESTRATTO CONDENSATO DEL 
CATALOGO LIBRI E GRANDI OPERE JACKSON È I 


RIVISTA; IL CATALOGO COMPLETO PUÒ ESSERE 










i MITTENTE 


COGNOME 





NOME 





VIA E NUMERO 





CAP CITTÀ 













PROV. TEL. ( 


I 
COMUNQUE ORDINATO, UTILIZZANDO LA CEDOLA 
NUMERO 3: INFORMAZIONI & AGGIORNAMENTI. I 
QUEST'ULTIMA È LA PIÙ IMPORTANTE E PERMETTE AL I 
LETTORE DI RICEVERE, DIRETTAMENTE A CASA 
PROPRIA, TUTTE LE INFORMAZIONI SULLE INIZIATIVE I 
ACKSON CHE LO INTERESSANO: CATALOGHI, LIBRI, I 
CAMPAGNA ABBONAMENTI CORSI DELLA 
DIVISIONE FORMAZIONE E PRODOTTI PER LA I 








Se desiderate ricevere rapidamente informazioni suì prodotti e attività del 
Gruppo Editoriale Jackson o acquistare, con formula rateate a sole L. 25.000 
mensili e un anticipo di L. 45.000 una “Grande Opera Jackson" 
selle delia cedola che vi interessano. Ritagliate e spedite, riportando sulla 
busta l'indirizzo esatto del Gruppo Editoriale Jackson. 


GRUPPO EDITORIALE 


JACKSO 


Via Rosellini, 12 
20124 Milano 
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Se desiderate ordinare libri o “Grandi Opere Jackson”, utilizzate questa cedo- 
la. Compilate gli appositi spazi precisando anche il tipo di pagamento scelto, il 
vostro nome, cognome e indirizzo. Ritagliate e spedite, riportando sulla bu- 
LURBUEATO NELLE DEIRErA GINE DE QUESTA E sta l'indirizzo esatto del Gruppo Editoriale Jackson. 


i RITAGLIATE E SPEDITE IN BUSTA CHIUSA 
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GRUPPO EDITORIALE 


JACKSON 


Via Rosellini, 12 
20124 Milano 
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DIDATTICA JACKSON S.A.T.A., COPIE OMAGGIO DI’ RITAGLIATE E SPEDITE IN BUSTA CHIUSA 


RIVISTE E FASCICOLI DI GRANDI OPERE. QUESTO 
SERVIZIO CONSENTE, OLTRE CHE DI RIMANERE 
AGGIORNATI, ANCHE DI AGGIORNARE | COLLEGHI 
E GLI AMICI, POICHÈ LA CEDOLA È STUDIATA 
ANCHE CON QUESTO INTENTO. NON PIÙ 
TELEFONATE E LETTERE: DA OGGI È SUFFICIENTE 
SPEDIRE L'APPOSITO TAGLIANDO, PER OTTENERE IN 
BREVISSIMO TEMPO IL MATERIALE DESIDERATO, 


MITTENTE 


COGNOME 












NOME 
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GRUPPO EDITORIALE 


JACKSON 


Via Rosellini, 12 
20124 Milano 




























































































































































































































































































































































































N.B. Per abbonamenti all’estero le tariffe dovranno essere raddoppiate. Non è prevista la spedizione via aerea. I 
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SCUOLA DI ALTE TECNOLOGIE 
APPLICATE JACKSON S.A.T.A. 


(ya TEN [PT [o oo] t Dit) 


Lunedì 29 agosto Inizio corso SPECIALIZZAZIONE IN AUTOMAZIONE 
INDUSTRIALE E ROBOTICA 175 ore (serale) 

Inizio corso MICROPROCESSORI BASE 40 ore (serale) 

Lunedì 5 settembre 

Inizio corso CONTROLLO E PREVENZIONE DELLE PARTI ELETTRONICHE 
DALLE SCARICHE ELETTROSTATICHE 24 ore (intensivo) 

Inizio corso PROGRAMMAZIONE IN BASIC 40 ore (intensivo) 

Inizio corso UNIX, XENIX UTENTI 80 ore (serale) 

Inizio corso DBHI PLUS UTENTI 24 ore (serale) 

Lunedì 12 settembre i 

Inizio corso EMC-COMPATIBILITÀ ELETTROMAGNETICA 24 ore (intensivo) 
inizio corso PROGRAMMAZIONE IN PASCAL-TURBOPASCAL 50 ore 
(intensivo) 

nizio corso CASE-COMPUTER AIDED SOFTWARE ENGINEERING 40 ore 
intensivo) 

Giovedì 15 settembre 

nizio corso DBIII PLUS PROGRAMMAZIONE 24 ore (serale) 

Lunedì 19 settembre 

inizio corso DESK TOP PUBLISHING 40 ore (serale) 

nizio corso TRASDUTTORI, SENSORI, ATTUATORI 20 ore (serale) 

Mercoledì 21 settembre 

nizio corso ELETTRONICA DIGITALE 60 ore (intensivo) 

Lunedì 26 settembre 

nizio corso PROGRAMMAZIONE IN COBOL 60 ore (intensivo) 

Mercoledì 28 settembre 

nizio corso CONTROLLORI LOGICI PROGRAMMABILI 40 ore (serale) 

Lunedì 3 ottobre inizio corso ARCHITETTURA SNA 32 ore (intensivo) 

nizio corso INTEGRAZIONE EDP E TLC NELL'OFFICE AUTOMATION 32 ore 
intensivo) 

nizio corso APPLICAZIONI INDUSTRIALI DELLE TEGNICHE LASER 

DI BASSA POTENZA 32 ore (intensivo) 

nizio corso VENTURA 24 ore (intensivo) 

Lunedì 10 ottobre 

nizio corso APPARATI E SISTEMI PER LE RETI DI COMPUTER 40 ore 
{intensivo) 

nizio corso MICROPROCESSORI BASE 40 ore (intensivo) 

nizio corso PAGE MAKER 24 ore (intensivo) 

Lunedì 17 ottobre Inizio corso PROGRAMMAZIONE IN C 80 ore (intensivo) 
nizio corso PROGRAMMAZIONE WINDOWS BASE 80 ore (intensivo) 

nizio corso PROCESSORI DI SEGNALE DIGITALE 60 ore (intensivo) 

nizio corso MANUSCRIPT 24 ore (intensivo) 

Lunedì 24 attobre inizio corso ELEMENTI BASE DI ROBOTICA 20 ore (serale) 
Lunedì 7 novembre Inizio corso PC/MS-DOS 24 ore 

nizio corso PIANIFICAZIONE RETICOLARE COL PC 24 ore (intensivo) 

nizio corso OFFICE COMMUNICATION 24 ore (intensivo) 

nizio corso INFOCENTER 32 ore (intensivo) 

nizio corso TECNICHE BASE E SISTEMI PER TRASMISSIONI DATI 80 ore (serale) 
nizio corso MICROPROCESSOR! EVOLUTO 40 ore (serale) 

nizio corso INTRODUZIONE ALL’INTELLIGENZA ARTIFICIALE E Al SISTEMI 
ESPERTI 40 ore (intensivo) 
inizio corso INFORMIX/SQOL 50 ore (serale) 

nizio corso ARCHITETTURA 08/2 40 ore (intensivo) 

nizio corso MICROPROCESSORI A 16 BIT 60 ore (intensivo) 

nizio corso AFFIDABILITÀ DEI CIRCUITI E DEI COMPONENTI ELETTRONICI 
24 ore (intensivo) 
Mercoledì 9 novembre Inizio corso 
Lunedì 14 novembre 

nizio corso RETI DI COMUNICAZ 
20 ore (serale) 

nizio corso MODELLI PREVISIONALI COL PC 24 ore {intensivo) 

nizio corso USO DEL PC NELL'AREA PRODUZIONE 24 ore (intensivo) 
nizio corso PROGETTAZIONE DEI MODERNI CIRCUITI STAMPATI 24 ore 
{intensivo) 

Lunedì 21 novembre 
nizio corso RETI A COMMUTAZIONE DI PACCHETTO 40 ore (intensivo) 
Inizio corso PROGRAMMAZIONE IN LISP 40 ore (intensivo) 

nizio corso MODELLI DECISIONALI COL PC 24 ore (intensivo) 

nizio corso USO DEL PC NELL'AREA MARKETING 24 ore (intensivo) 
Lunedì 28 novembre Inizio corso MULTIPLAN 24 ore 

nizio corso PROGRAMMAZIONE IN PROLOG 40 ore (intensivo) 

nizio corso AUTO-CAD 32 ore (serale) 

nizio corso SERVIZI A VALORE AGGIUNTO SULLE RETI X25 24 ore 
intensivo) 

Mercoledì 30 novembre 
Lunedì 12 dicembre 
Seminario con WORK-SHOP SUI LINGUAGGI DELLA IV GENERAZIONE 24 
ore (intensivo) 

nizio corso IL MODELLO OSI 32 ore (intensivo) 

nizio corso SYMPHONY 40 ore (intensivo) 

nizio corso OTTIMIZZAZIONE E DEBUGGING “C” 40 ore (intensivo) 

inizio corso MICROPROCESSORI EVOLUTO 40 ore (intensivo) 


WORD 24 ore 


ONE NELLA FABBRICA AUTOMATIZZATA 





Inizio corso LOTUS 1-2-3 24 ore 
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Per Je modalità di 
iscrizione e richiesta di 
programmi dettagliati, 
telefonare alla DIVISIONE 
FORMAZIONE E 
PRODOTTI PER LA 
DIDATTICA del Gruppo 
Editoriale Jackson 

Via Imperia 2 Milano 
Telefono 8467500 











CORSO AVANZATO 
DI CULTURA INFORMATICA 









IN EDICOLA 
DA SETTEMBRE 


es, il primo, vero È 

a. 

s avanzi nei linguaggievolittà 
Te ein MOR Mar” 
otel] a fondo le applicazioni: C 


RT gi RIO SALE RULES! Rita 


ergrafica. Impari a procedere nella pro- 
Te [gigi 11}: A[o]e(S0i iaia SISI ILL tit Ol) 
sicurezza. Perchè B è una ‘p TREO 
a, chiara, auto! e completa, per chi 
MITE chi insegna. chi lavora. 
la Mae LI a OE INIzlE i VOMS E R0le:o1) 
Mare)t: WI 1N et fizisroi teo) si Liizigri. “EMMI 
, cal le al-g Ne LiiieInt x 
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Scegli Bytes e sei pronto a mordere il futuro. 
Bytes. Nuovo da Jackson. 
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“© DIVISIONE GRANDI OPERE 
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DALLA COLLABORAZIONE DEI TECNICI 
To "orco 
es a 
i == °° PIÙ SPECIALIZZATI NEL SETTORE SONO NATE 
Ego 
cime! 


(LE GRANDI GUIDE AI COMMODORE 64 E 128. QUESTE SI PRESENTANO COME 


RIFERIMENTI UFFICIALI PER DUE TRA { PIÙ VERSATILI E INTERESSANTI 


del Programmatore. 


COMPUTER ATTUALMENTE DISPONIBILI COMMODORE 64 E 128 


Corso completo 


NON HANNO BISOGNO DI ALCUNA PRESENTAZIONE MA SOLO 
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